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.REM % 


IDENTIFICATION 


PRODUCT CODE: AC~A803B-MC 

PRODUCT NAME: CZTEEBO TMO35-TE16/TU77 DRIVE FUNCTION TIMER 
DATE CREATED: 15 NOV 78 

MAINTAINER: DIAGNOSTIC GROUP 

AUTHOR: |. G. ADAMS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977,1978 BY DIGITAL EQUIPMENT CORPORATION 
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TMO3S DRIVE FUNCTION TIMER 
ABSTRACT 


ABSTRACT 


PROGRAM DZTEE MEASURES THE TIME REQUIRED AND 
SIZES PRODUCED BY THE £TNO3=TE16/TU77 
DRIVE/SLAVE . 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
thon DELAYS, AND THE DISTANCES TRAVELED BY THE 


ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BPI SKEW TAPE. 


way ERRORS ARE CHECKED AND PRINTED AS THEY 


CCUR. IF AN ERROR IS DATA RELATED(PARITY; ETC) 


THEY ARE PRINTED AS SOFT ERRORS. 


IF A TIME CHECK IS OUT OF RANGE, IT IS PRINTED 
AS AN OUT OF RANGE ERROR. 
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REQUIREMENTS 
CHAPTER 1 
REQUIREMENTS 


PDP-11 FAMILY CENTRAL PROCESSOR WITH 4K MEMORY WITH UP TO 64 ITMO3-TE16/TU77 
CONTROLLER/MAGTAPE STATIONS. 


1.1 OPTIONAL EQUIPMENT USED 
1. NONE 


1.2 STORAGE 
PROGRAM LOADS AND RUNS IN THE FIRST 4k OF MEMORY. 


1.5 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 


MAINDEC-11=DZTEA CONTROL LOGIC TEST(PART 1) 
MAINDEC=11-DZTEC BASIC FUNCTION TEST 
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CHAPTER 2 
LOADING AND STARTING PROCEDURE 


2.0 LOAD & START PROCEDURE: 


LOAD PROGRAM USING THE ABSOLUTE LOADER 
LOAD ADDRESS = 200 
PRESS START SWITCHES SEE CHAPT 3 SWITCH SETTINGS 


THE PROGRAM WILL THEN REQUEST THE FIRST BUS ADDRESS OF THE RHXX 
eagles oP TMO3 DRIVES TO BE TESTED, TE16/TU77 SLAVES TO BE TESTED, 
AND IF SPEED TESTS ARE TO BE RUN. IN ADDITON TO EACH REQUEST A 
DEFAULT ANSWER WILL BE TYPED. TO INVOKE THE DEFAULT TYPE A 

CARRIAGE RETURN. 


THE REQUESTS & THEIR DEFAULTS ARE: 


TYPE FIRST ADDRESS OF CONTROLLER: faa 
TYPE TMOS DRIVE #°S TO BE TESTED:A 
FOR TMO3 DRIVE X-TYPE SLAVE #'S io BE TESTED:ALL 
SPEED TESTS ?(YES/NO) :NO 
NOTES: sg ee NOT REQUESTED IF DEFAULT TO DRIVE REQUEST 


IF MORE THAN 1 DRIVE OR SLAVE IS TO BE TESTED, TYPE 
',' BETWEEN EACH DRIVE OR SLAVE # TO BE TESTED. 


SPEED TESTS CAN & WILL ONLY BE RUN BY ANSWERING YES TO THE REQUEST. 

TYPE CONTROL U (*U) TO DELETE LINE TYPED;TYPE ‘RUBOUT*® TO DELETE LAST 
CHARACTER(S). 

PROGRAM WILL REPORT ERRORS, AND END OF PASS, 


2.1 RESTART PROCEDURE 
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THE PROGRAM MAY BE RESTARTED USING START UP PARAMETERS AT ADDRESS 210. 


Me PROGRAM MAY ALSO BE RESTARTED BY TYPING A CONTROL C (“C). 
A “C RESTART WILL eee PARAMET ERS. 


NOTE: AFTER RESTARTING. THE SuITCh ,REGISTER SHOULD 
BE SET TO PROGRAM SWITCH SET TINGS. IF 210 
IS LEFT AS THE SWITCH SETTING THE PROGRAM 
WILL SELECT & RUN TEST 10 ONLY. SEE SWITCH 
SETTINGS FOR cot oaabesen 


2.2 AUTOMATIC MODE OPERATION 


IF THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) te * 

DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED, AND ALL AVAIL- 

ABLE TMO3-TE16/TU77 COMBINATIONS ARE TESTED. ADDITIONALLY THE SOFTWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF 000000 IF LOADED VIA ACT11. 

NO OPERATOR INTERVENTION IS REQUIRED 


** EXCEPTION: IF LOADED VIA TMDP TMO3S DRIVE O TE16/TU77 SLAVE 0 IS 
NOT TESTED. 


**NOTE: IN OREDER TO CHANGE THE DEFAULT SETTING OF THE SOFTWARE 
SWR, SET LOC: 176(SWREG:) TO THE DESIRED SETTING. 
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CHAPTER $3 
SWITCH SETTINGS 


CONTROL : 


1) CONTROL G <*G>; 
SELECTS THE SOFTWARE SWR AND ALLOWS NEW SWITCH SETTINGS. 
THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWR. 
AFTER THE °"NEW="" HAS 7. TYPED THEN THE OPERATOR CAN vO ONE 
OF THE FOLLOWING AT THE T 
A) Aig A NUMBER TO BE LOADED INTO THE SOFTWARE SWR. 
B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


2) CONTROL A <*A>; 
ALTERNATES USAGE OF THE SWR BETWEEN HARDWARE & SOFTWARE. 


3) CONTROL C <*>; 
RESTARTS PROGRAM AT 200 


4) CONTROL U <*U>; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 


SEQ 0007 


CZTEEBO TMOS-TE16/TU77 DFT 
17-NOV-78 


CZTEEB.P11 


SW15 
(100000) 


SwW14 
(040000) 


Sw15 
(020000) 


Sw11 
(004000) 
SW10 
(002000) 
SWO9 
(007000) 
Sw06 
(000100) 
SW5-0 


NOTE: 


10:11 


LOOP SUBTEST 
INHIBIT ERROR 
TYPEOUT 
INHIBIT SUB- 
TEST ITERATION 
INHIBIT 
FUNCTION TIME 
PUBLICATION 
RING BELL 

ON ERROR 


CONT INUOUS 
CYCLE 


TEST SELECT 


A TEST CAN ONLY BE SELECTED DURING STARTUP (OR RESTART). 
DO NOT INHIBIT SUBTEST ITERATIONS WHEN PROGRAM IS RUNNING. 
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T ON ERROR THIS SWITCH WHEN SET WILL HALT THE 


HAL 
PROCESSOR WHEN AN ERROR IS DETECTED. 


THE PC+2 AND PSW AT THE TIME OF _ THE 
ERROR IS STORED ON THE STACK. PRESSING 
CONTINUE WILL CAUSE THE ERROR TO BE 
TYPED (IF SELECTED) AND FURTHER TESTING 
RESUMED. 


THIS SWITCH WHEN SET LOOPS THE CURRENT 
SUBTEST REGARDLESS OF ERROR CONDITION. 
THIS SWITCH WHEN SET INHIBITS ERROR 
TYPEOUT. 

THIS SWITCH WHEN SET CAUSES EACH SUBTEST 
TO BE EXECUTED ONLY ONCE. 

THIS SWITCH WHEN SET WILL INHIBIT THE 
PRINTING OF THE FUNCTION TIMES. (SEE 
CHAPTER 8.) 


THIS SWITCH WHEN SET WILL RING THE BELL 
ON THE TTY WHEN AN ERROR IS DETECTED. 


THIS SWITCH WHEN SET WILL CAUSE THE 
PROGRAM TO RUN CONTINUOUSLY UNTIL 
STGPPED BY THE OPERATOR. 


RUN SUBTEST SFLECTED 


SEQ 0008 
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CHAPTER 4 
ERRORS 


TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
INCORECT FUNCTION TIMES. 


4.1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE: PARITY ERROR) 
ARE PRINTED AS SOFT ERRORS AND HAVE NO 
EFFECT ON TIME. 
TEST # XXXXXK DEVICE ERROR 


CS1 WE BA FC CS2 DS ER1 
AAAAAA BBBRBR CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG 


NUMBER : 
= CONTENTS OF TAPE REGISTER 172440-17245¢ 


4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST # XXXXX& OUT OF RANGE ERROR 
RANGE = <AAAAAA~BBBBBB> ACTUAL = CCCCCC 
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CHAPTER 5 
SUBROUTINE ABSTRACTS 


5.1 .SCOPE 

THE SCOPE ROUTINE IS CALLED BY THE SCOPE (EMT) INSTRUCTION AT THE 

eR. ® EACH SUBTEST. THE .SCOPE ROUTINE PERFORMS THE FOLLOWING 
1. LOADS R5 WITH BASE ADDRESS 

- PROVIDES CONTINUOUS LOOP <SW14> 

MOVES FUNCTION TIME INTO TABLE 

OUTPUTS LINE ITEM <SW10>=1 

- DELAYS 350MS BEFORE STARTING TEST 

- INIT*’S DRIVE/SLAVE 

CLEARS THE ERROR FLAG (ERFLG) 
8. CHECK FOR CONTROL G (*G> 

THE ROUTINE MONITORS SW14, SW11, SW10, AND SwWO07. 

5.2 PUBLISH 

THE PUBLISH ROUTINE IS CALLED FROM THE SCOPE ROUTINE IF SW10 IS EQUAL 


TO O (PUBLISH TIME DOCUMENT). THE ROUTINE WILL PRINT A THE TIME 
RECORDED BY THE SUBTEST. 


w Cf we hCG 
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SUBROUTINE ABSTRACTS 


2.3 oMLT 


THE HLT ROUTINE IS CALLED BY THE HLT (TRAP) INSTRUCTION WHEN AN’ ERROR 
IS DETECTED. A HLT (TRAP) INSTRUCTION FORMATS THE ERROR INFORMATION 
~ Fre IN SEC 4.1. A HLT+1 (TRAP+1) FORMATS THE ERROR AS SHOWN IN 
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CHAPTER 6 
MISCELLANEOUS 


6.1 STACK POINTER 
THE STACK POINTER IS INITAILLY SET TO 500. 


6.2 EXECUTION TIME 


WHEN SW11=1 (INHIBIT ITERATIONS) THE TIME REQUIRED IS 2 MIN. 


WHEN SW11=0 (ITERATE SUBTESTS) THE TIME REQUIRED IS 9 MIN. 


—_.—--- 
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SEQ 0012 
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MACY11 30A(1052) 


TMO3S DRIVE FUNCTION TIMER 


PROGRAM DESCRIP 


-1 SAMPLE TIME DOCUMENT 


TION . 


CHAPTER 7 
PROGRAM DESCRIPTION 


TYPE FIRST ADDRESS OF CONTROLER: re 
TYPE TMO35 DRIVE #°S TO BE TESTED:ALL O . 
FOR TMOS DRIVE O- TYPE SLAVE S10 BE TESTED:ALL 0 


TAPE SPEED TESTS ONLY? (YES/NO) 
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LARAAASAAASZALALALALALALALA AAA A SEAS SELES EEE SEER SERS SSS SPCC See eee ea ae | 


TMOS DRIVE FUNCTION TIMES= DRIVE # 0 SLAVE # 7 TE16 SER. # 5009 


ae 


a peppmeee eRe eae Re eRe Re Re Re eee Re ee 


FUN@i ION 

WRITE FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE SETTLEDOWN 
READ FROM BOT 


SHUTDOWN 
READ SETTLEDOWN 
READ REV START 
READ REV SHUTDOWN 
READ REV SETTLEDOWN 
TURN AR 


WRITE FILE MARK 


TIME (SPECIFICATION) 
RANGE =<176000-172000> 


1 
RANGE =<104000-102000> 


TIME (ACTUAL) 


AC TUAL=103990 


PAGE 71 


SEQ 0013 
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7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 


TYPE FIRST ADDRESS OF CONTROLLER fare 

TYPE TMOS DRIVE #°S TO BE TESTED:ALL 0 

FOR TMO3 DRIVE O- TYPE SLAVE as 10. BE TESTED:ALL 7 
SPEED TESTS ONLY? (YES/NO) :NO 


wan se Pons dB otic RNA ENE NN 2 a SE 


*TMO5 DRIVE FUNCTION TIMES- DRIVE # 0 SLAVE # 7 TE16 SERIAL # 5009 
® 


*FUNCT ION TIME (SPECIF ICATIOND TIME (ACTUAL ) 
*TAPE SPEED FWD RANGE =<022700-021700> ACTUAL=022500 
*TAPE SPEED REV RANGE =<022700-021700> ACTUAL=022500 
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7.2 TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 
TEST NO. /NAME RELATED ADJUSTMENTS ASSOCIATED HARDWARE 
1. WRITE FROM BOT *NONE *M8931/M8940 ROM*M8933 ACCL CNTR 
2. WRITE START 2" "ie “ 
3. WRITE SHUTDOWN "es eee Fah. 
4. WRITE SETTLEDOWN “Ss *M8916/M8940 (TU77) SETTLEDOWN O 
5. READ FROM BOT : ' *M8931/M8940 ROM*M8933 ACCL CNTR 
6. READ START . : lig o 
7. READ SHUTDOWN i, es 
10. READ SETTLEDOWN os " *M8916/M8940 (TU77) SETTLEDOWN O 
11. READ REVERSE START » *M8931/M8940 ROM*M8933 ACCL CNTR 
12. READ REVERSE SHUTDOWN "hes “> & 
13. READ REVERSE SETTLEDOWN *M8916/M8940 (TU77) SETTLEDOWN O 
14, TURN AROUND F=R . * *M8931/M8940 ROM*M8933 ACCL CNTR 
15. TURN AROUND R-F . a 
16. GAP SIZE-STOP HALF *FWRD/REV SPEED-START/STOP=RAMPS *CAPSTAN SERVO LOOP 
17. GAP SIZE-START HALF *SAME AS IN TEST 16 .™ sgl Mit 


20. GAP SIZE INTERRECORD *FWD/REV SPEED ce —— 
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TMO3 DRIVE 
gi. 


2c. 


£3. 


24. 


£30 


26. 


27. 


wekexeNOTE: 


FUNCTION TIMER PAGE 14 

GAP CONSISTENCY *SAME AS IN TEST 16 

DATA TIME 800 BPI *NONE 

DATA TIME 1600 BPI rE a 

ERASE GAP TIME his 

WRITE FILE MARK setae 

TAPE SPEED-F ORWARD *FWD SPEED 

TAPE SPEED-REVERSE *REVERSE SPEED 

IF TIME PROBLEMS APPEAR IN T1 THRU 125, RUN TAPE SPEED TESTS FIRST **«x«ne 


TEST 26 & 27 REQUIRE AN 800 BPI SKEW TAPE 


SEQ 0016 


*WRITE CLOCK 


*® se se ee 


*CAPSTAN SERVO LOOP 


*CAPSTAN SERVO LOOP 
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fad SUBTEST DESCRIPTIONS: 


THE FIRST THIRTEEN (15) TESTS (T1 = 115) ARE CHECKS OF THE 
ROM_CIRCUITS IN THE TE16 (M8931/M8940), THE ACCL COUNTER IN THE 
TMO3 (M8933), AND THE SETTLEDOWN ONE SHOT (M8916/M8940 (TU77)). 


T1. WRITE FROM BOT: 


THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 


1. ASSURE TAPE IS STOPPED AT BOT. 
2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 OF TC (ACCL) 

: fn 3 FROM GO TO ACCL RESET IS BOT DELAY 


T2. WRITE START: 
pa TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 


HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 
FROM BOT. 


- LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
OMMAND 


} 
2. ISSUE A WRITE C 

3. MONITOR BIT 15 OF TC (ACCL) 

re fia 4 FROM GO TO RESET OF ACCL IS START DELAY 


T5. WRITE SHUTDOWN: 


THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME. THIS 
ASSURES, IN PART, A PROPER INTERROCORD GAP. 


ISSUE A WRITE COMMAND. 

MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN) 
TIME FROM FC= x TO ASSERTION OF SDWN IS 

i A lapeaagaled IME. 


Wm SWRA 
. * 8 «© @ 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 


SEQ 0017 
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T4. WRITE SETTLEDOWN: 


THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 

FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOULD 

BE STOPPED. THIS IS A PART OF THE GAP TIMING IN LOGIC. 
THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 
WILL BE MEASURED IN A LATER TEST. 


1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 4 OF DS (SDWN) 

4. TIMt FROM SET OF SDWN TO RESET OF SDWN IS THE 

; ae DELAY 


T5. READ FROM BOT 


THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
MEASUREMENT IN T1. USE THE SAME RECORD THAT WAS 
WRITTEN IN T1. 


- REWIND TO BOT 

ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 
READ FORWARD 1 RECORD. 

MONITOR BIT 15 OF TC (ACCL) 

Fa: FROM GO TO ACCL IS BOT DELAY 


Ones Wwr— 
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T6. READ START 
THIS TEST MEASURES THE SAME DELAY AS IN Te. 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 


ISSUE A READ FORWARD OF THE RECORD WRITTEN IN STEP 1. 
MONITOR BIT 15 OF TC (ACCL) 
a3 FROM GO TO RESET OF ACCL IS START DELAY 


T7. READ SHUTDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T3. 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, Eee TAPE IS STOPPED. 


READ FORWARD THE RECORD WRITTEN IN STEP 

MONITOR FRAME COUNT AND BIT 4 OF DS (SDWN). 

TIME FROM FC= a ee , ote (LAST FRAME READ) TO SDWN=1 
{a SHUTDOWN TIME 


T10. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T4, 


- 


Ww SW 
. * ee «6 


WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 


READ FORWARD THE RECORD WRITTEN IN STEP 1 
MONITOR BIT 4 OF DS (SDWN) 

TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
Bates DELAY. 


SEQ 0019 
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T1171, READ REVERSE START: , 
THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 
DIRECTION. 


— 
. 


WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 15 OF TC (ACCL) 

e° A FROM GO TO RESET OF ACCL IS THE START TIME 


T12. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

2. READ a Fail THE RECORD WRITTEN IN STEP 1. 

3. MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN). 

4. TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 
; tm READ REVERSE SHUTDOWN TIME. 


T15. READ REVERSE SETTLEDOWN: 


THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 4 OF DS (SDWN) 

4. TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
ts DELAY 


T14. TURN AROUND DELAY-FORWARD TO REVERSE 


THIS TEST WILL ‘lee THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION. 


LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 
MONITOR BIT 7 OF DS (DRY) 

WHEN DRY IS ASSERTED RECORD. IMMEDIATELY ISSUE A 


(ACCL). 
TIME FROM GO OF READ REVERSE TO RESET OF ACCL IS 
Eg Oe TIME, 


N OW Hw 
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T15. TURN AROUND DELAY-REVERSE TO FORWARD 


THIS TEST WILL MEASURE THE TIME AS IN T14, BUT IN THE 
OPPOSITE DIRECTION. 


WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED 

READ REVERSE 

MONITOR DRY (BIT 7 OF DS) 

WHEN DRY = 1, ISSUE A “ F ORWARD 

MONITOR ACCL (BIT 15 OF TC) 

fla 3 FROM GO FORWARD 10 ACCL = 1 IS THE TURN AROUND TIME. 


CoONOUWIE Wh 
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GAP MEASUREMENTS: 


THE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF LOGIC 
DELAYS PERFORMED BY THE TMO3 OR TE16/TU/7 IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND DECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP (.6 INCHES). THIS TEST, HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCORD GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 

THE CAPSTAN ITSELF. BECAUSE THE INTERRCORD GAP IS 

CREATED BY TWO ACTIONS, THE START OF MOTION AND THE 

STOP OF MOTION IT IS NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS. A THIRD MEASUREMENT, MADE ON THE FLY, OF 

THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 


T16. GAP SIZE (STOP HALF»? 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
IN A STOP CYCLE. IN OTHER WORDS, THE DISTANCE INTO THE IRG. 


1. WRITE 1 RECORD. 

2. ASSURE TAPE IS STOPPED. 

3. ISSUE A READ REVERSE OVER THE RECORD 

4. MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (FC = 1) 
ze tet FROM GO=71 10 FC=1 IS THE LENGTH OF THE GAP 


T17. GAP SIZE (START HALF) 


THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL DURING START UP. 
WRITE 1 RECORD, THEN REVERSE OVER IT, ASSURE TAPE IS STOPPED. 
ORWARD 


WEAN = 
So 
7a) 
<M 
sh 
Sp 
mar.*] 
om 
=8 
D xi 
nn 
ee 


1 
fin 3 FROM GO=1 TO FC=1 IS START DISTANCE 


T20. GAP SIZE (INTERRECORD) 


THIS TEST WILL MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG. THE TIME VALUE OF THIS TEST SHOULD NOT BE 
EQUAL TO A_SUMMATION OF T16 AND T17 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT IN 
pag Ue 14 he Th. HERE SHOULD ACTUALLY BE LESS THAN THE 


1. WRITE 2 RECORDS. 

2. READ REVERSE OVER_THE SECOND RECORD 

3. MONITOR DRY (BIT 7 OF DS) 

4. WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

5. MONITOR FRAME COUNT 

6. TIME FROM GO=1 OF SECOND READ REVERSE TO FC=1 IS THE 
> 57 he OF THE GAP. 


SEQ 0022 
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T21. GAP CONSISTENCY: 


NOW THAT WE HAVE ESTABLISHED THAT THE INTERRCOR 

GAP IS THE PROPER SIZE. LET US DETERMINE THE CONSISTENCY 
OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES. 

BY WRITING A SERIES OF RECORDS. EACH WITH A DIFFERENT 

DELAY BETWEEN EXECUTION CAN ESTABLISH THE CONSISTENCY 
OF THE GAPS BY READING THESE RECORDS AND MONI TORING 
THEIR INTERRECORD GAPS, ON THE FLY. 


1 +i ow TAPE TO BOT. 

2. WRITE ONE (1) RECORD TO GET TAPE OFF BOT 

Be ag SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 
OF FROM 0 TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS 

4 cap yes 16 RECORDS AND ALLOW THE TAPE TO STOP. 

5. READ FORWARD (NON-STOP) wis re 16 RECORDS, EACH 
TIME a Wik THE TIME FROM THE END OF RECORD (DRY) 
UNTIL THE FRAME COUNT NEXT GOES FROM 0 TO 1 (FC=1). 

6. THE TIMES FROM DRY TO FC=1 IS THE GAP TIME AND IT 
SHOULD REMAIN CONSISTANT FOR ALL RECORDS. 


7. STOP 
**(SEE GTIMTBL IN LISTING FOR GAP TIMES)** 


T22. DATA TIME AT 800 BPI: 
THIS TEST WILL MEASURE _s TIME REQUIRED TO WRITE 
ONE T 800 BPI. 


BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 
THE TAPE 1 INCH (800 FRAMES), DATA RATE 
CAN BE VARIFIED. 


1. REWIND TO BOT AND ALLOW TAPE TO STOP 
2. WRITE A RECORD AT_800 BPI. 

3. MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 

4. THE TIME FROM FC=FC+1 TO DRY WILL BE THE TIME REQUIRED 
‘ coe! INCH AT THE SELECTED DENSITY 


T2353. DATA TIME AT 1600 BPI] (PE): 
REPEAT STEPS 1 THRU £ AT 1600 BPI. 


é 
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124. ERASE: 


THE ERASE COMMAND WILL CAUSE AN AREA OF THE THREE (3) 
INCHES TO BE DC ERASED IN THE FORWARD DIRECTION. 
cpaten’ WILL ASSURE THAT THE PROPER DISTANCE IS 


1. LEAVE TAPE AT ITS PRESENT POSITION. 
2. ISSUE AN ERASE COMMAND. 

3. MONITOR DRY (BIT 7 OF DS) 

4. THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO ERASE 3 INCHES OF TAPE AND WILL 
oe THE DISTANCE. DENSITY IS NOT A FACTOR, 


T25. TAPE MARK: 

THIS TEST IS ALSO A CHECK ON THE THREE (3) INCH GAP, 
WHEN A TAPE MARK IS WRITTEN. A 3 INCH GAP IS 
CREATED BEFORE DATA IS PUT oN TAPE. 


1. LEAVE TAPE AT ITS PRESENT POSITION 


2. ISSUE A WRITE TAPE MARK COMMAND 

3. MONITOR DRY (BIT 7 OF DS) 

4. THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO WRITE THE TM RECORD PLUS THE 
3 INCH GAP, 

+. STOP 
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126. TAPE SPEED FORWARD: 


THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED 10 MOUNT THE SKEW TAPE 
BEFORE EXECUTING THE TEST. THE SKEW TAPE IS THE ONLY 


BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE. 


- ASSURE TAPE IS Ad any A. T BOT. 


2 

TO FC = 26400 IS THE TIME REQUIRED 
TO TRAVEL 32 INCHES 

DIVIDE THE TIME FOR 32 INCHES BY 32. 

a" Me ad ed IS AN AVERAGE SPEED FOR 1 INCH. 


T27. TAPE SPEED REVERSE: 


THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 


1. ADVANCE TAPE OFF OF BOT. 
2. ISSUE A READ REVERSE. 
yg STEPS 3 THRU 6 IN THE REVERSE DIRECTION. 
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LIST BIN,LOC,SEQ 
-NLIST MC 

-NLIST TOC 

-LIST ME 

ENABL 


E ABS,AMA 
-MCALL $CPVEC,$CPREG, $CATCH $TYPE, .$ACT11,.$EOP, $CHAIN 
TITLE CZTEEBO 1M03-TE16/TU?7 OFT 
:DRIVE FUNCTION TIMER 

STARTING INSTRUCTIONS 


» SBTTL 
; LOADING oe STARTING PROCEDURE 


PROGRAM USING ABS LOADER 
LOAD ADDRESS 206 
SET SWITCH OPi IONS 
PRESS START 


7RESTART PROCEDURE 


; SWITCH 


; CONSOLE COMMANDS 


ee tere USAGE : 


LOAD ADDRESS 210 
SET SWITCH Mtl hess 
rkxcSS ST 


REGISTER SWITCH ASSIGNMENTS 
SW15= 0000 ;HALT ON ERROR 

>LOOP SUBTEST 

: INHIBIT ERROR TYPE OUT 

; INHIBIT SUBTEST ITERATION 

; INHIBIT PUBLISHING TIME SPECIFICATION 


SWO9= 001000 :RING BELL ON ERROR 
SWO8= 000400 ; 

SWO7= « 00200 ;NOT USED 

SWO6= 000100 ce tore CYCLE 
SW05=Sw00 TEST SELECTED 


S*NOTE: IF <Sw15~SwOO> ='177777 AT STARTUP. USE SOF TWARE 
. SWITCH REGISTER. 


‘ 


CONTROL’ C ;RESTART PROGRAM (SAME AS START @ 200) } 
CONTROL“ G :SET NEW SOFTWARE SWITCH REGISTER 

CONTROL U DELETE LINE TYPED 

BUBOUT (DELETE) DELETE LAST CHAR TYPED 


BY SCOPE) 


] 
R4=CONTAINS ‘TICK® COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 


R5=ADDRESS OF CS1 (SET BY SCOP 
.SBTTL MACRO DEFINITIONS 

JSR PC, . SAVE 

: SAVE 

.MACRO RESTORE 

JSR PC, .RESTORE | 


~-ENDM RcSTORE 
-MACRO INPUT 


=ADDRESS OF ‘FC’ REGISTER (SET 
R1=ADDRESS OF ‘DS* REGISTER (SET BY SCOPE) 
R2=RETURN PC FROM TIMER (SET BY EACH TEST) 
R3=INDEX INDICATING PREVIOUS at LLATOR POLARITY (SET BY TIMER) 
E) 


;SAVE REGISTERS ON THE ‘STACK 


sRESTORE REGISTERS FROM THE STACK 


SEQ 0026 


eu 
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1034 JSR PC,. INPUT :GET USER INPUT 
035 .ENDM — INPUT 
036 “MACRO REWIND © 
037 JSR PC, REWIND :REWIND SLAVE 
0 BVS 99§ “BRANCH IF ERROR ON REWIND 
0 NDM REWIND 
“MACRO TIMEON 
JSR PC, TIMON : TURN TIMER ON 
.ENDM 
“MACRO TIMCHK 
INP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
“MACRO SETGO 
INC (RS) :SET 'GO' BIT 
_ENDM 


-SBTTL REGISTER ASSIGNMENTS 
;sDEFINITIONS AND REGISTER ASSIGNMENTS 
caeemewtg hs” rests ASSIGNMENTS 


a ed ce eal ae ceed ce ceed cee cel ce ce ce ce ce ld a ce ld ce ce ed ce ce ch cee cl ce cee cae cc ee ced cd ec 
RRRARARARARAKRAADRRRERERRER RG 
MO OO NAR WO 000 NONE WO Doo 


000000 
000001 R1=%1 
000002 R2=%2 
000003 R3=%3 
000004 R4=%4 
000005 R5=%5 
000006 SP=%6 
000007 PC=%7 
000000 #R10=%0 
000001 R11=%1 
065 000002 R12=%2 
064 000003 R13=%3 
065 000004 R14=%4 
066 5 R15=%5 
067 
068 ; REGISTER ADDRESSES 
069 177776 PSW= ;sPROCESSER STATUS WORD 
1070 177774 SLR= 177774 3-STACK LIMIT REGISTER (11/40,11/45) 
1071 177772 PIRQ= 177772 ; PROGRAM INTERRUPT REQ. (11/45) 
1072 177770 UBREAK= 177770 ; sMICRO-BREAK REGISTER (11/45) 
10735 — 177560 FKS= 177560 ; KEYBOARD CSR 
1074 177562 TKB= 177562 ; KEYBOARD DATA BUFFER REGISTER 
1075 177564 TPS= 177564 ;;TELEPRINTER CSR 
‘nee 177566 TPB= 177566 ;;TELEPRINTER DATA BUFFER REGISTER 
1078 ;;VECTOR ADDRESSES 
1079 000004 ERRVEC=4 ; ADDRESS OF ERROR VECTOR 
1080 000010 RESVEC=10 ; ADDRESS OF RESERVED INST. TRAP VECTOR 
1081 000014 TBITVEC=14 ;zADDRESS OF ‘T* BIT TRAP VECTOR 
1082 000014 TRIVEC=14 ;;ADDRESS OF ‘TRACE’ TRAP VECTOR 
1083 000014 BPTVEC=14 ;;ADDRESS OF “BREAKPOINT’ TRAP VECTOR 
1084 000020 IOTVEC=20 :sADDRESS OF IOT TRAP VECTOR 
1085 009024 PFVEC=24 ; ADDRESS OF POWER FA! TRAP VECTOR 
1086 000030 EMTVEC=35 ; ADDRESS OF EMT VECTOR 
1087 9000034 TRAPVEC=34 ;;ADDRESS OF TRAP VECTOR 
1088 000060 TKVEC= 6¢ ; ADDRESS OF TTY KEYBOARD INT. VECTOR ! 
1089 000064 ‘ TPVEC=64 ; ADDRESS OF TTY PRINTER INTERRUPT VECTOR 
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REGISTER ASSIGNMENT 


PARVEC=_ 114 
PIRVEC=240 
FPEVEC=244 
MMVEC=250 


;sADDRESS OF MA/MF PARITY ERROR VECTOR 
; ADDRESS OF PIRQ VECTOR 

; ADDRESS OF FLOATING POINT INT. VECTOR 
; ADDRESS OF MEM MGMT ERROR TRAP VECTOR 


SEQ 0028 
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REGISTER ASSIGNMENTS 


RH, TMO3-TE16/TU77 REGISTERS 
TMCS1= 1 


72440 


Se if sCONTROL STATUS #1 
= 04 oes ADDRESS REGISTER 

FC= 06 C 

CS2= 10 ‘CONTROL STATUS #2 

DS= 12 :DRIVE STATUS 

ER= 14 sERROR REG # 

AS= 16 sATTENTION SUMMARY 
= 22 ;DATA_BUFFER REG 
= 24 MAINTENANCE REG 

DT= 2 ;DRIVE TYPE REG 

SN= 30 ;SERIAL NUMBER REGISTER 

TC= 32 ; TAPE CONTROL REG 

TM93-TE16/TU77 REGISTER BITS 

GO= 1 

NOP= 0 

RWDOFF= 2 

RwD= 6 

DRYCLR= 10 

WFMK= 26 

ERASE= 24 

SPCFWD= 30 

SPCREV= 32 

WCHKF= 50 

WCHKR= 56 

WFWD= 60 

RDFWD= 70 

RDREV= 76 

IE= 100 

RDY= 200 

A16= 400 

Al/7= 1000 

PSEL= 2000 

DVA= 4000 

MCPE= 20000 

TRE= 0000 

SC= 100000 

DvO= 0 

DV1= 1 

DV2= 2 

DV3= 3 

DV4= 4 

Dv5= 5 

DV6= 6 

DV7= 7 

BAI= 10 

PAT= 20 

CLR= 4v 

]R= 100 


SEQ 0029 


mn 
@ 


SIN SSN NS SO OS OS OOO OA OA MUIUIUIUIVIVIV 
BONAR UN SDs ara D See 


SBSLEARRAVLSESEVEARLAVSS 


SSS 
Wr 


Soe 


BO TMO 


-P11 


3-TE} 
1 


6/TU77 DFT 
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000200 
0004 


; RHMR-MR (R5) 


OSC= 


;RHDT=DT(RS) 
SPR= 


CH7= 
TAP= 


;RHTC=TC(RS) 


BP1556= 
BP! 800= 
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40000 
UNS! OPI!DTE! NEF /FCE:FMT!RMR! ILRI ILF 


100 


009400 
001000 


;HARDERROR BITS 


SEQ 0030 





orn 


aall 


TEEBO TMO35-TE16/TU77 mA 
TEEB.P11 17-NOV-78 10:11 
1207 002300 
1208 100000 
1209 
1210 
1211 
1212 
1213 104400 
1214 104000 
1215 
1216 
1217 
1218 006274 
1219 177400 
1220 177600 
1221 
1222 000001 
1223 000003 
1224 000007 
1225 000011 
1226 000012 
1227 000015 
1228 000017 
1229 000025 
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PE1600= 002300 
ACCL= 100000 


; INSTRUCTION EQUATES 
HL T= TRAP 


SCOPE= EMT 
TYPE= IOT 


;MISCELLANEOUS EQUATES 
OUTBUF = INIT 


FRMCNT= -256. 
WRDCNT= -128. 
ASCII Pera he 
CNTRLC= 3 
CNTRLG= 7 
HT= 1 
LF= 1 
CR= 1 
CNTRLO= 1 
CNTRLU= 2 


47 Hey BUFFER STARTS AT BEG OF PROGRAM 
;FRAME COUNT 
:WORD COUNT 


CONTROL A (“A) 
CONTROL C (“*C) 


CARRIAGE RETURN 
CONTROL O (“*0O) 
CONTROL U (“U) 


SEQ 0031 
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1230 

1231 

1232 000014 
1233 000016 
1234 000020 
1235 000022 
1236 000024 
1237 000026 
1238 000030 
1239 000032 
1240 000034 
1241 000036 
1242 

1243 

1244 * 

1245 

1246 000046 
1247 

1248 000052 
1249 

1250 

1251 

1252 000060 
1253 000062 
1254 

1255 

1256 

1257 000176 
1258 

1259 

1260 000200 
1261 

1262 000210 
1263 

1264 

1265 

1266 

1267 

1268 

1269 001000 
1270 001002 
1271 001004 
1272 001005 
1273 001006 
1274 001010 
1275 001012 
1276 001014 
1277 001016 
1278 001020 
1279 

1280 001060 
1281 001120 
1282 001122 
1285 001124 
1284 001125 
1285 001126 


000014 
000016 
000000 
002636 
000000 


001000 
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;SETUP TRAP VECTORS 
TVEC 


. WORD + 

~-WORD HAL 

. WORD . TYPE 

-WORD 0 

-WORD PFVEC+2 

-WORD HALT 

. WORD . SCOPE 
WORD 340 
WORD HLT 
WORD 340 

sACT11 HOOK **xeekewnne 

“WORD SENDAD 

"WORD 0 

-=$SVPC 

-=TKVEC 

. WORD TKISR 

. WORD 200 


;SET ‘T* TRAP TO TIMER ROUTINE 
“PRIORITY LEVEL 

;SET IOT TRAP TO .TYPE ROUTINE 
=PRIOTITY LEVEL 0 

=POWER FAIL TRAP TO HALT 

“AT PFVEC+2 

;SET EMT TRAP TO .SCOPE ROUTINE 
=PRIORITY LEVEL 7 

;SET TRAP TRAP TO .HLT ROUTINE 
sPRIORITY LEVEL 7 


; SAVE CURRENT LOCATION CTR 
;SET LOCATION 46 


;SET LOCATION 52 = 0 
sRESTORE LOCATION CTR 


es nas SWITCH REGISTER LOC. 176 


SWREG: .WORD 


JMP a4 INIT 
IMP BARSTRT 


.=500 
STKPTR= 600 


=1000 
; PROGRAM. TAGS 


GAPTBL : 
DELTIM: 
OCTALO: . 
GAP: 


ITCNT: 


TSTNUM: . 


ME : 
ATIMTBL:. 


yA a 


Ww 

=< 

— 

mn 
=s+ODdOoOO 


MCS1 


oO 


Oo 
OOOOCoO > —OOO 


; SOFTWARE SWITCH REGISTER 


:GO TO START OF PROGRAM 


;RESTART ADDRESS 


> STACK 


;SWITCH REGISTER 


;TMO3 DRIVE UNDER TEST 
;TE16/TU77 SLAVE UNDER TEST 
;POINTER TO SLAVE TABLE (SLVTBL) 


BELOW 
;BASE ADDRESS OF dae ats bP REGISTERS 


:US/TICK (56/80 FOR TE16/T 
TICKS/MS | (18/6 FOR TE16/TU77) 

TAINS ‘TICK* COUNT 
:FACH entry CONTAINS TIME FOR FUNCTION 
“ENTRIES ARE MADE BY ‘SCOPE’ ROUTINE 
: TIMES RECORDED BY ‘GAP CONSISTANCY' TEST 
*VARIBLE DELAY 


;CONTAINS GAP # (USED FOR TST 021) 
gO N aK COUNT 


SEQ 0032 
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1286 001127 000 ERFLG: .BYTE OQ ;ERROR FLAG 
1287 001130 006 SKEWFLG: -BYTE 0 :0/ 1 = DO NOT/DO SKEW (SPEED) TESTS 
1288 001131 000 PRGFLG: .BYTE QO - PROGRAM FLAG 
1289 001132 000 UNTFND: .BYTE QO “UNIT FOUND INDICATOR 
1290 001133 000 TYPFLG: .BYTE 0O 
1291 001134 000 PSCNT BYTE 0O ;CONTAINS PASS COUNT 
1292 001135 000 ASFLG: .BYTE 0O -1/0 = YES/NO. 
1293 001136 000 TE16 BYTE O :Q0/1 = TE16/TU77 
1294 001140 EVEN 
1295 001140 030460 DIGTAB: ‘01 
1296 001142 031462 "23 
1297 001144 032464 '%5 
1298 001146 0334 "67 
1299 001150 034470 , 
1300 001152 ODIGITS:.BLKB 6 ;RESERVE SPACE FOR CONVERTED DIGITS 
1301 001160 000 ‘TE @ ; TERMINATOR 
1302 001162 EVEN 
1303 001162 000010 DRVTBL: .BLKB 8. ZA ae = DRIVE NOT TO BE/TO BE TESTED 
1304 001172 000100 SLVTBL: .BLKB 64. A 0/-1 = SLAVE NOT TO BE/TO BE TESTED 
1305 001272 000110 INBUF: .BLKB 72. TELETYPE INPUT BUFFER 
1506 001402 005015 000 CRLF : ASCIZ <CR><LF> =MI SCELLANEOUS ASCII CHARACTERS 
1307 001405 134 000 BKSLSH: .ASC]Z ‘'\' 
1308 001407 060 ECHO: ASCIZ ‘OQ' 
1309 001411 007 000 BELL: ASCIZ </> 
1310 001413 055 DASH: ASCIZ ‘=-' 
1311 001415 040 SPACE2 4? bab. 
1312 001416 000040 SPACE: .ASCIZ °* ° 
1313 001420 004476 000 ANGTAB: .ASCIZ ‘'>'<HT> 
1314 001424 EVEN 


mm 
Sess nm 
OOnNAewN DW 


sa CRIES 


OVE 


HEEEKE KEL EK 


DAA AAAI 
WDNAMUEBWN © OONAUSWN © 


LNIAWIAWNNIWANW OW 


SOSSRESES 


ed ee eee eed et ed a“ ot ow) Ww wd 5 1 


WN 
™S 


S 
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<< .SBITL TE16 TIME SPECIFICATION TABLE 
; THE BELOW TABLE CONTAINS THE TE16 SPECIFIED FUNCTION TIMES IN TENS OF 
:MICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED IN 
“MICROSECONDS (BY APPENDING A 0). 
;FORMAT IS 
; .WORD MAX,MIN : TIME IN MS FUNCTION TEST # 
001424 000000 000000 TEI6TTBL:.WORD 0,0 : SPARE 
001430 036050 035230 .WORD 15400..15000. :154.0-150.0 | WRITE FROM BOT TSTOO1 
001434 001666 001546 .WORD 00950.,00870. :9.5-8.7 WRITE START TSTO02 
001440 001522 001356 -WORD 00850..00750. :8.9-8.5 WRITE SHUTDOWN TSTOO3 
001444 002506 001332 -WORD 01350.,00730. :13.5-7.3 WRITE STLDOWN TSTO04 
001450 007164 006344 .WORD 03700.,03300.  :37.0-33.0 READ FROM BOT TSTOOS 
001454 000500 000360 -WORD 00320.,00240. :3.2-2 READ START TS 
001460 000632 000454 “WORD 00410.. .  24.1-3.00 READ SHUTDOWN TSTOO7 
001464 002506 001332 “WORD 01350..00730. :13.5-7.3 READ SETTLEDOWN TSTO10 
001470 000500 000360 -WORD 00320.,00240. :3.2-2.4 RD REV START _—‘TSTO11 
001474 000562 000512 .WORD 00370.,00330. :3.7-3.3 RD REV SHTDWN TSTO12 
001500 002506 001332 WORD 350.,00730. :13.5-7.3 RD REV STLDWN TSTO013 
001504 003206 002056 -WORD 01670..01070.  :16.7-10.7 TRN RND DLY F-R TSTO14 
001510 003206 002056 “WORD 01670..01070.  :16.7-10.7 TRN RND DLY R-F TSTO15 
001514 002412 001666 -WORD 01290..00950. :12.9-9.5 GAP SIZE STOP TSTO16 
001520 002234 001522 -WORD 01180..00850. :11.8-8.5 GAP SIZE STRT  TSTO17 
001524 002626 002354 -WORD 01430.,01260.  :14.3-12.6 GAP SIZE | TST020 
001530 002570 002234 -WORD 01400..01180. :14.0-11.8 GAP CONSISANCY TSTO21 
001534 004540 004230 “WORD 400.,02200.  :24.0-22.0 DAT TIME 8008PI TSTO22 
001540 004716 004552 “WORD 02510..02410. :25.1-24.1 ‘AT TIME 1600PE TST023 
001544 023564 023110 WORD ,09800.  ;101.0-98.0 ERASE TST024 
001550 024240 023730 .WORD 10400..10200. :104.0-102.0 WRT FILE MARK  TSTO25 
001554 004336 004172 “WORD 02270..02170.  :22.7=21.7 TAPE SPEED FWD TST026 
001560 004336 004172 “WORD 02270..02170.  :22.7=21.7 TAPE SPEED REV TSTO27 
:NOTE: TEST 26 AND 27 REQUIRE PRERECORDED 800BPI SKEW TAPE. 
.SBTTL TE16 GAP TIME SPECIFICATION TABLE | 
;THIS TABLE CONTAINS THE TE16 GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
:OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TSTO21). 
“NOTE: GAP #'S ARE IN OCTAL. 
: .WORD MAX,MIN(10) :TIME IN MS(10) GAP # DELAY IN MS(10) 
001564 002602 002412 TE16GTBL:.WORD 01410.,01290.  :14.10-12.9 GAP-0 0 MS 
001570 002652 002506 -WORD 01450..01350. :14.5-13.5 GAP-1 1.0 MS 
001574 002734 002532 WORD 01500..01370. :15.0-13.7 GAP=2 2.0 MS 
001600 003016 002424 WORD 01550..01300. :15.5=-13.0 GAP-3 %.) MS 
001604 003016 002304 WORD 01550..01220.  :15.5=12.2 GAP=4 4.0 MS 
001610 734 002176 WORD 01500..01150. :15.0-11.5 GAP-5 5.0 MS 
001614 002652 902176 WORD 01450..01150. :14.5-11.5 GAP-6 6.0 MS 
001620 002652 002176 WORD 01450..01150.  :14.5-11.5 GAP=7 7.0 MS 
001624 002570 002176 WORD 01400..01150. :16.0-11.5 GAP-10 8.0 MS 
001630 002570 002176 WORD 01400..01150. :14.0-11.5 GAP-11 9.0 MS 
001634 002570 002176 WORD 01400..01150.  :14.0-11.5 GAP-12 10.0 MS 
001640 002570 002176 WORD 01400..01150.  :14.0-11.5 GAP-13 11.1 MS 
001644 002570 002176 WORD 01400..01150. :14.0-11.5 GAP=14 12.1 MS 
001650 002570 002176 -WORD 01400..01150.  :14.0-11.5 GAP=15 13.1 MS 
001654 002570 002176 -WORD 07400..01150. :14.0-11.5 GAP-16 14.1 MS 
001660 002570 002176 “WORD 01400..01150. :14.0-11.5 GAP=17 15.1 MS 





3 
ZT EERO TMO3-TE16/TU7? DFT MACY11 30A(1052) 21-DEC-78 13:20 PAGE 35 
C7TEEB.P 17=NOV=78 10:11 TU77 TIME SPECIFICATION TABLE SEQ 0035 
1371 .SBTTL TU77 TIME SPECIFICATION TABLE 
1372 : THE BELOW TABLE CONTAINS THE Tur? SPECIFIED FUNCTION TIMES IN TENS OF 
1373 :MICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED IN 
1374 =MICROSECONDS (BY APPENDING A 0). 
1375 *FORMAT IS 
1376 : .WORD MAX,MIN : TIME IN MS FUNCTION TEST # 
1378 001664 000000 000000 TU77TTBL:.WORD 0,0 : SPARE 
1379 001670 012606 011571 .WORD 5510.,4985. =55.1-49.85 WRITE FROM BOT TSTOO1 
1380 001674 000520 000460 -WORD 00336.,00304. :3.36=-3.04 WRITE START TSTOO2 
1381 001700 000346 000313 WORD 00230.,00203. :2.3-2.03 WRITE SHUTDOWN TSTOO3 
1382 001704 003410 001717 WORD .,00975. :18.0-9.75 WRITE STLDOWN TSTO04 
1383 001710 001315 001112 WORD 00717.,00586.  :7.17-5.86 READ FROM BOT TSTOOS 
1384 001714 000111 WORD 00073.,00055. :.73-.55 READ START S 
1385 001720 000111 7 -WORD 00073.,00055. :.73-.55 R HUT $7007 
1386 001724 003410 001717 “WORD 01800. 00975. -18.0-9.75 READ SETTLEDOWN TSTO10 
1387 001730 000111 ? -WORD 00073..00055. :0.73-0.55 RD REV START T0117 
1388 001734 000101 57 “WORD 00065..00047.  :0.65-0.47 RD REV SHTDWN  —*TSTO12 
1389 001740 003410 001717 -WORD 01800..00975.  :18.0-9.75 RD REV STLDWN  TSTO13 
1390 001744 003500 “WORD 01 856. .01030. -18.56-10.3 TRN RND DLY F-R TSTO14 
1391 001750 003510 002017 “WORD 01864..01039.  :18.64-10.39 | TRN RND DLY R-F TSTO15 
1392 001754 000725 561 “WORD 0469.,00369. :4.69-3.69 GAP SIZE STOP TST016 
1393 001760 00062 64 -WORD 0400..00308.  :4.00-3.08 GAP SIZE STRT  TSTO17 
1394 001764 001012 “WORD 0522. .0422. 75,224.22 GAP SIZE INTER TSTO20 
1395 001770 001034 4 “WORD 0540..0417. =5.40-4.17 GAP CONSISANCY TST021 
139% 001774 001515 001434 “WORD 0845. .0796. *8.45-7.96 DAT TIME 800BPI TSTO22 
1397 002 001536 001434 .WORD  0862..0796. *8.62-7.96 DAT TIME 1600PE TSTO23 
1398 002 007020 76 -WORD  3600.,03390. :36.00-33.90 E ST024 
1399 002010 007176 006642 -WORD 3710. 3490, = 37.10-34.90 T FILE MARK TSTO25 
1400 002014 001560 001320 “WORD 00880.,00720.  :8.8-7.2 TAPE SPEED FWD TST026 
1401 002020 001560 061320 -WORD 00880..00720. :8.8-7.2 TAPE SPEED REV TST027 
1403 :NOTE: TEST 26 AND 37 REQUIRE PRERECORDED 8008PI SKEW TAPE. 
1404 .SBTT 7 GAP TIME SPECIFICATION TABLE 
1405 THIS TABLE host aloes THE TU77 GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
1406 OFT HE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TSTO21). 
1407 NOTE: GAP #'S ARE IN OCTAL. 
yy ; -WORD MAX,MIN(10) :TIME IN MS(10) GAP # DELAY IN MS(10) 
1411 002024 000770 000676 TU77GTBL:.WORD 0504.,0446. 25.04-4.46 GAP-0 0 MS 
1412 002030 001013 000717 .WORD 0523. .0463. 75.23-4.63 GAP-1 0.24 MS 
1413 002034 001033 000732 “WORD 0539..0474. +5. 39-4. 74 GAP=2 0.48 MS 
1414 002 001050 000742 -WORD 0552. .0482. 75 .52=4.82 GAP=3 0.72 MS 
1415 002 001062 000746 “WORD 0562. .0486. 75 .62-4.86 GAP=4 0.96 MS 
1416 002050 001067 000742 -WORD 0567. .0482. 75 .67-4.82 GAP-5 1.20 MS 
1417 002054 001072 736 “WORD 0570. .0478. -5.70-4.78 GAP-6 1.44 MS 
1418 002 001072 000724 “WORD 0570. .0468. 35. 70-4.68 GAP-7 1.68 MS 
1419 002 001066 000704 “WORD 0506. .0452. -5.66-4.52 GAP-10 1.92 MS 
1420 002070 001065 0 “WORD 0565. .0432. 565-4. 32 GAP=11 2.16 MS 
1421 002074 001046 000627 “WORD 0550. .0407. =5.50-4.07 GAP=12 2.40 MS 
1422 002100 001027 000572 “WORD 0535. .0378. 5. 35-3. 78 GAP=13 2.64 MS 
1423 002104 000776 000632 “WORD 0510. .0410. *5.10-4.10 GAP-14 2.88 MS 
1424 002110 000776 000632 -WORD 0510..0410. -5.10-4.10 GAP-15 3.12 MS 
1425 002114 000776 000632 “WORD 0°10..0410. =5.10-4.10 GAP-16 3.36 MS 
1426 002120 000776 000632 WORD 0510..0410. -5.10-4.10 GAP-17 3.60 MS 
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~SBTTL TIME SPECIFICATION TABL te 


ED FUNCTION TIMES IN TENS OF 
YPED THAT THEY ARE TYPED IN 


FUNCTION 


WRITE FROM BOT 
WRITE START 


ISAN 
DAT ine 8008P I 


TAPE SPEED REV 


: THE BELOW TABLE WILL CONTAIN THE SPECIF] 
“MICROCESONDS. NOTE THAT WHEN TIMES ARE T 
“MICROSECONDS (BY APPENDING A 0). 

“FORMAT IS 
: .WORD MAX,MIN : TIME IN MS 

STTBL: 

STIMTBL:.WORD 0,0 : SPARE 

-WORD 15400.,15000. :154.0-150.0 
-WORD 00950.,00870. :9.5-8.7 
-WORD 00850..00750. :8.9-8.5 
-WORD 01350.,00730. :13.5-7.3 
-WORD 03700.,03300.  :37.0-33.0 
-WORD 00320.,00240. :3.2-2.4 
WORD 10.,00300. :4.1-3.00 
-WORD 01350.,00730. :13.5-7.3 
-WORD 00320.,00240. :3.2-2.4 
.WORD 00370.,00330. :3.7-3.3 
-WORD 01350.,00730. :13.5-7.3 
“WORD 01670..01070. :16.7-10.7 
“WORD 01670..01070.  :16.7-10.7 
-WORD 01290.,00950. :12.9-9.5 
-WORD 01180.,00850. :11.8-8.5 
-WORD 01430..01260.  :146.3-12.6 
-WORD 01350..01180. :13.5-11.8 
-WORD 02400.,02200.  :24.0-22.0 
“WORD 02510..02410.  :25.1-24.1 
.WORD 10100.,09800.  :101.0-98. 
-WORD 10400..10200. :104.0-102. 
“WORD 02270..02170. :22.7-21.7 
-WORD 02270..02170.  :22.7-21.7 

:NOTE: TEST 26 AND 27 REQUIRE PRERECORDED 800BPI SKEW TAPE. 


‘or 


GTIMTBL : 


16. GAPS 


or #°S ARE IN OCTAL. 


ENDTBL: — 


GAP TIME SPECIFICA 
RECORDED BY THE GAP 

MIN(10) : TIME IN 
01380.,01260.  :13.8-12 
01450..01350. :14.5-13 
01490..01350. :14.9-13 
01480..01340.  :14.8-13 
01400..01200.  :14.0-12 
01390..01100.  :13.9-11 
01370..01100.  :13.7=-11 
01370..01100. :13.7-11 
01350..01150.  :13.5=11 
01340..01150.  :13.4-11 
01340..01150.  :13.4-11 
01340..01150. :13.4-11 
01340..01150. :13.4-11 
01340..01150. :13.4-11 
01340..01150.  :13.4-11 
01340..01150. :13.4=-11 
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. SBTTL TION TABLE 
mts TABLE WILL CONTAIN THE GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
THE CONSISTANCY TEST (TST021). 


MS(10) GAP a 
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TEST # 


TSTOO1 


TSTO27 


ys IN MS(10) 


SEQ 0036 
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SBTTL _TEST HEADER POINTERS 


. SBT 
; THE BELOW TABLE CONTAINS POINTERS TO EACH TEST'S DESCRIPTOR 
NAMPTR: .WORD | 


WOR A.T000 
-WORD A.TOO1 
-WORD A.TOO2 
-WORD A.T003 
-WORD A.T004 
«WORD A.TOO5 
-WORD A.T006 
-WORD A.TOO7 
-WORD A.T010 
-WORD A.1011 
-WORD A.TO12 
-WORD A.1T013 
-WORD A.T014 
-WORD A.TO15 
-WORD A.1T016 
-WORD A.TO17 
-WORD A.T020 
-WORD A.1021 
-WORD A.T022 
-WORD A.1023 
. WORD a+ thes 
A. 
A. 


; TABLE OF TEST STARTING ADDRESSES 


TS 


TTBL: .WORD TSTOOO 


WORD TSTQO1 
WORD ‘7STO02 
WORD ¥STO03 
WORD TST004 
WORD TST005 
WORD TST006 
WORD TSTOO7 
WORD TSTO10 
WORD TSTO11 
WORD TSTO12 
WORD TSTO13 
TSTO14 

WORD TSTQ15 
D TST016 
WORD TST017 
WORD TST020 
WORD TSTQ21 
WORD TST022 
WORD TST023 
WORD TSi024 
WORD TST025 
WORD TST026 


“WORD 1S7027 


SEQ 0037 
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001000 


001272 


176170 


000002 


TEST HEADER POINTERS SEQ 0038 


TIB: «WORD 0 
;ROUTINE TO LOAD SOFTWARE SwWR 


GTSWR: CMP ASWREG, SWR ;BRANCH IF SOFTWARE SWR 
2$ ;NOT INVOKED 
=. PC,.SAVE ;SAVE REGISTERS ON THE STACK 
V @SWR ,R2 

JSR PC, TYPOCT 

TYPE ,L 

JSR PC,.INPUT ;GET USER INPUT 

ea a ahlameel sEXIT IF FIRST CHAR IS <CR> 

JSR PC, CNVTAO ;CONERT ASCII TO OCTAL 

MOV AVOCTALO,@SWR SET NEW SWITCH REG CONTENTS 
I$: JSR PC. -RESTORE 


.SBTTL PROGRAM SUBROUTINES 

. SBTTL TYPE SUBROUTINE 
; ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;.THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;;CALL: TYPE :sA_TRAP TYPE INSTRUCTION 
oe ME SADR ;sMESADR IS FIRST ADDRESS OF ASCIZ STRING 


;; TAGS USED BY THE TYPE ROUTINE BELOW 
SHT=11 ;sHORIZONTAL TAB 


$NULL: .BYTE 0O 3: CONTAINS NULL CHARACTER 
iit: BYTe 2 ;:CONTAINS # OF FILLER CHARACTERS 
STPFLG: .BYTE 0O 3; CONTAINS TELEPRINTER AVAILABLE FLAG 
330/377 = AVAIL/NOT AVAIL 
STKFLG: .BYTE O ;; CONTAINS KEYBOARD AVAILABLE FLAG 
$ITPS: -WORD 177564 ; ADDRESS OF TLEPRINTER STATUS REGISTER 
$TPB: ~WORD 177566 ; ADDRESS OF TELEPRINTER DATA BUFFER 
$CHARCNT: .BYTE O ;; CONTAINS # OF CHARS TYPED 
SCNIRLO:.BYTE O 3; CONTAINS CONTROL O CHAR (IF TYPED) 
SCRLF ASCIZ <15><12> 
-EVEN 
RDSW: -WORD 0 
TYPE: MOV RO,-(SP) 3, SAVE RO 
MOV a2(SP),RO 3;GET MESSAGE ADDRESS 
ADD #2,2(SP) : ADJUST RETURN PC 
CLRB SCNTRLO 
TYPE 1 TSTB SCNTRLO ;;BRANCH IF CONTROL 0(*0O) WASN'T TYPED 
BEQ TYPE2 
TCRLF TYPE .SCRLF >: TYPE <CR><LF> 
TSTB RDSW 
BPL TYPE 3 
CLR RDSwW 
RTS PC 
TYPE2: MOVB (RO)+,-(SP) 3;;PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE TPES ;;BRANCH IF NOT THE TERMINATOR 
TST (SP) + ;.POP TERMINATOR CHAR OFF THE STACK 


N 3 
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11 TYPE SUBROUTINE 


C7TEEB.P11 17=NOV-78 10: SEQ 0039 
1590 002712 012600 TYPE3: MOV (SP)+,RO ;;RESTORE RO- 
F344 002714 000002 RT] : ;RETURN TO CALLER 
1593 002716 122716 000011 TYPE4: (MPR  #$HT,(SP) : BRANCH IF HORIZONTAL TAB <HT> 
1594 002722 001445 BEQ 9$ 
1595 002724 737 002756 JSR PC. 5$ :: TYPE CHARACTER 

002730 122726 000012 3$: (MPR so #12, (SP) + =: CHECK IF CHARACTER WAS A LINE FEED 

1597 002734 001350 BNE TYPE 1 ::BRANCH IF NOT LINE FEED 
1598 002736 013746 002616 MOV SNULL ,- (SP) -:GET # OF FILLERS REQUIRED AND FILLER 
lam >: CHARACTER. 
1601 002742 105366 000001 4$: DECRB  ~—-:_1( SP) ::DECREMENT FILLERS REQ. COUNT 
1602 002746 002770 BLT 3$ : :BRANCH IF NO MORE FILLERS ARE REQUIRED 
1603 002750 004737 002756 JSR PC,5$ >: TYPE FILLER CHARACTER 
1604 002754 000772 BR 4$ 

1606 002756 105777 177640 S$: TSIB = aS TPS ::WAIT FOR OUTPUT DEVICE 
1607 002762 100375 BPL = 
1608 002764 122737 000017 002627 (MPR #117 ,aW#$CNTRLO =: :CHECK IF CONTROL O WAS TYPED 
1609 002772 001403 BEQ eee ::STOP TYPING MESSAGE IF *O WAS TYPED 
1610 002774 116677 000002 177622 MOVB 2(SP) ,a$TPB ; ;OUTPUT CHARACTER { 
1611 003002 122766 000015 000002 63: (MPR es #15, 2( SP) ::BRANCH IF NOT <CR> 
1612 003010 001003 BNE 7$ 
1613 003012 105037 002626 CLRB = $CHARCNT :: CLEAR CHARACTERS TYPED COUNT é 
1614 003016 06 BR Rt , 
1615 003020 122766 000012 000002 7s: (MPR ss #122 SP) : BRANCH IF <LF> OR "NULL" 
1616 003026 002002 BGE 8$ 
1617 003030 105237 002626 INCB ~—s $CHARCNT :: INCREMENT CHARACTER TYPED COUNT 
1618 003034 000207 8$: RTS PC 
1620 ; HORIZONTAL TAB.<HT> PROCESSER 
1621 003036 112716 000040 9$: MOVB #40,(SP) :;LOAD *SPACE' 
1622 003042 004737 002756 10$: JSR pc, 5$ >: TYPE "SPACE' 
1623 0030466 132737 000007 002626 BITB #7.$CHARCNT >: TYPE SPACES UNTIL A MULTIPLE ~ 
1624 003054 001372 BNE 10$ ::OF 8 CHARACTERS HAVE BEEN TYPED . 
1625 003056 105726 TSTB (SP) + 3;POP SPACE 
1058 003060 000676 BR TYPE 1 >:GET NEXT CHARACTER . 
1628 ; SUBROUTINE TO SAVE GENERAL REGISTERS ON THE STACK 
1629 “CALL: SAVE 
1630 003062 010546 .SAVE: MOV R5,=(SP) :SAVE REGISTERS ON THE STACK 
1631 003064 010446 MOV R4,-(SP) 
1632 003 10346 -MOV * R3.=(SP) 
1633 003070 010246 MOV R2,-(SP) 

3072 010146 MOV R1,-(SP) 

1635 003074 010046 MOV RO,-(SP) 
1636 003076 016646 000014 MOV 14(SP) ,-(SP) -GET RETURN PC 
1637 003102 000207 RTS PC * RE TURN 
1639 é ; SUBROUTINE TO RESTORE GENERAL REGISTERS FROM THE STACK 
1640 “CALL: RESTORE 
1641 003104 012666 000014 -RESTORE:MOV (SP) +, 14(SP) :MOVE RETURN PC 
1642 003110 012600 MOV (SP) +°RO “RESTORE REGISTERS 
1643 003112 012601 MOV (SP)+°R1 
1644 003114 012602 MOV (52>) +R? \ 
1645 003116 012603 MOV (SP)+°R3 : 
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TYPE SUBROUTINE 


MOV (SP) +,R4 
MOV (SP)+,R5 


RTS PC ;RETURN 

4 o -vieygl TO CONVERT OCTAL DATA TO ASCII 

> CAL MOV NUMBER ,R2 sMOVE NUMBER TO R2 

: JSR PC, CNVOCT 

CNVOCT: MOVB SP, TYPFLG ;SET DO NOT TYPE FLAG 
BR CNVTO 


. SBTTL OCTAL TO ASCII & TYPE ROUTINE 
: SUBROUTINE TO CONVERT OCTAL NUMBER TO A et _ pis, IT OUT 


: NUMBER ,R2 PU 

: JSR PC, TYPOCT “CALL ROUTINE 

;YPOCT CLRB  Q#TYPFLG :SET TYPE FLAG 

“JSR PC, .SAVE :SAVE REGISTERS ON THE STACK 

MOV #HODIGITS,R4 =SET PTR TO OUTPUT 
CLR R3 *R3 WILL CONTAIN OCTAL DIGIT 
MOV R2,R1 “GET # TO BE TYPED 

1$: ASL R2 > SHIF T # 
ROL R3 
MOV #6,RO :SET DIGIT COUNTER 
BR 3$ 

2$: ASL R2 :SHIFT # 3 PLACES LEFT 
ROL RZ 
DEC RI 
BNE 2$ 

3$: MOV #3,R1 :SET SHIFT COUNTER 
MOVE DI GTAB(RS), (RG) + “MOVE ASCII EQUIV TO OUTPUT 
DEC RO :DECREMENT DIGIT COUNT 
BNE 2$ *GET NEXT DIGIT 
TSTB = AHTYPFLG “BRANCH IF ASCII IS 
BNE 4$ “NOT TO BE TYPED 

* TYPE ,ODIGITS 

JSR Pc, .RESTORE :RESTORE REGISTERS FROM THE STACK 

RTS PC 

; SUBROUTINE TO CONVERT OCTAL DATA TO DECIMAL ASCII 

*CALL: MOV NUMBER ,R2 :MOVE NUMBER TO R2 

: JSR PC, CNVDEC 

CNVDEC: MOVB _—s SP, a# TYPFLG :SET DO NOT TYPE FLAG 
BR CNVTD 


. SBTT OCTAL TO DECIMAL & TYPE ROUTINE 
THIS ROUTINE CONVERTS AN OCTAL # TO DECIMAL asthe a TYPES IT OUT 


ZCALL: MOV NUMBER ,R2 ;PUT # IN 
: JSR PC, TYPDEC ;CALL ROUTINE 
TYPDEC: CLRB @aATYPFLG ;SET TYPE FLAG 


SEQ 0040 


4 
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CZTEEB.P11 17-NOV-78 10:1 L TO DECIMAL & TYPE ROUTINE SEQ 0041 
1702 003246 CNVTD: 
1703 003246 004737 003062 JSR PC,.SAVE SAVE REGISTERS ON THE STACK 
1704 003252 005000 CLR RO -RO IS INDEX TO DECIMAL CONSTANT 
1705 003254 012704 001152 MOV #ODIGITS,R4 :SET OUTPUT PTR 
1706 003260 005003 1$: CLR R3 *R3 CONTAINS DECIMAL DIGIT 
1707 003262 166002 003342 2$: SUB DCONST (RO) ,R2 ; SUBTRACT DECIMAL CONSTANT UNTIL 
1708 003266 103402 BLO 3$ T # GOES NEGATIV 
1709 003270 005203 INC R3 “KEEPING TRACK OF SUBTRACTIONS 
1710 003272 000773 BR 2$ 
1711 003274 066002 003342 3$: ADD DCONST (RO) ,R2 :ADD BACK CONSTANT WHEN NEGATIVE 
1712 003300 116324 001140 MOVB DIGTAB(RS) , (R4)+ =MOVE ASCII EQUIVILENT 
1713 003304 7 000002 ADD NEXT CONSTAN 
1714 003310 005760 003342 TST DEONST (RO) “UNTIL ALL CONSTANTS DONE 
1715 003314 001361 BNE 1$ 
1716 003316 112724 000060 MOVB #'0,(R4)+ LAST DIGIT IS 0 
1717 003322 105737 001133 TSTB DITYPFLG “BRANCH IF ASCII IS 
1718 003326 001002 BNE 4$ :NOT TO BE TYPED 
1719 0603330 000004 001152 TYPE ,ODIGITS 
1720 003334 4$: 
1721 003334 004737 003104 JSR PC, .RESTORE RESTORE REGISTERS FROM THE STACK 
\7¢¢ 003340 000207 RTS PC 
1724 003342 023420 DCONST: .WORD 10000. 
1725 003344 001750 .WORD 1000. 
1726 003346 000144 .WORD 100. 
1727 003350 000012 : .WORD 10. 
1728 003352 000001 .WORD 1, 
170 003354 000000 .WORD 0 : TERMINATOR 
1731 .SBTTL TYPE SPECIFIED TIMES ROUTINE 
1732 :THIS SUBROUTINE OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 
1733 ‘AND ALSO THE ACTUAL TIME RECORDED (ATIME) 
1734 ; FORMAT OF LINE TYPED 
1735 E=<AAAAAA > ACTUAL= CCCCCC 
1736 WHERE : AAAAAA IS MAXIMUM TIME FOR TEST (STIMTBL(TSTNUMX4)). 
1737 : BBBBBB IS MINIMUM TIME FOR TEST (STIMTBL(TSTNUMX4+2)). 
1738 : CCCCCC IS ACTUAL TIME RECORDED BY TEST (ATIME). 
1739 :CALL: MOVB TEST NUMBER,R2 ;LOAD TEST NUMBER 
1740 : MOV #T IME , Q4AT IME :MOVE TIME TO ATIME 
1741 : JSR PC ,OUTSPC 
1742 003356 010246 OUTSPC: MOV R2,-(SP) :SAVE R2 & R3 ON THE STACK 
1743 003360 010346 MOV R3,-(SP) 
1744 003362 006302 ASL R2 -MULTIPLY TEST # TIMES 4 
1745 003364 006302 ASL R2 -TO FORM INDEX INTO STIMTBL 
1746 010203 R2,R3 :R3 CONTAINS INDEX INTO TABLE 
1747 003370 015636 TYPE 
1748 003374 016302 002124 MOV STIMTBL (R3) ,R2 :GET MAXIMUM SPEC T 
1749 00 004737 003242 R -CONVERT TO DECIMAL es TYPE 
17 04 000004 001413 TYPE 
1751 003410 016302 002126 V STIMTBL+2(R3) ,R2 :GET MINIMUM TIME 
1752 003414 004737 003242 JSR PC, TYPDEC :CONVERT TO DECIMAL & TYPE 
1753 3420 009004 001420 TYPE ,ANGTAB 
1754 003424 000004 015646 TYPE,L.ACT 
1755 003430 013702 001016 MOV QFATIME ,R2 :GET ACTUAL TIME 
1756 3434 004737 003242 JSR Po, TYPDEC :CONVERT TO DECIMAL & TYPE 
1757 003440 000004 001402 TYPE, CRLF 
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TYPE SPECIFIED TIMES ROUTINE 


MOV (SP)+,R3 
MOV (SP)+,R2 
RTS PC ; RETURN 


. SBTTL YPE GAP TIMES SUBROUTINE 
SUBROUTINE IS USED. TO TYPE THE SPECIFIED GAP SIZES (RECORDED IN 


Ter0at). T IS CALLED BY THE GAPOK ROUTINE IF THE GAP SIZE IS OUT OF 


: MOV R2,-(SP) 


via THE ‘ ROUTINE (HLT+2). 
MOVB 


MOV #TIME AT IME 
JSR PC ,OUTGAP 


;LOAD GAP # INTO GAP 
;LOAD ACTUAL TIME INTO ATIME 


;SAVE R2 AND R3 
ie R3,-(SP) 


MO GAP ,R3 ;GET GAP # 

ASL 3 

ASL 

TYPE,L.RNG 

MOV GT IMTBL(R3) ,R2 ;GET MAX TIME 

pan on? . TYPDEC ;CONVERT TO DECIMAL & TYPE 
MOV dd Oa »R2 :GET MIN TIME 

JSR PC, TYPDEC sCONVERT TO DECIMAL & TYPE 
TYPE ,ANGTAB i; TYPE < 

TYPE ,L.ACT 


MOV QAATIME ,R2 
JSR PC, TYPDEC 


;GET ACTUAL TIME 
;CONVERT TO DECIMAL & TYPE 


TYPE ,E 

MO QAGAP ,R2 ;GET GaP # 

JSR PC,TYPOCT : TYPE GAP # 
TYPE , CRLF 

MOV (SP)+,R5 ;RESTORE R3 AND R2 
MOV (SP)+,R2 

RTS PC 


ASCII TO OCTAL CONVERT SUBROUTINE 


. SBTTL 
; SUBROUTINE TO CONVERT ASCII DATA TO OCTAL. CONVERTED OCTAL DATA 
i]s 1 IN OCTALO <15-00>. 


23: 


3$: 


JSR PC,.SAVE ; SAVE ork th kat ON He STACK 
;SET PTR TO ASCII DATA 
:GET ADDRESS OF OCTAL DATA 


CLR (R1) :CLEAR OUT OLD OCTAL DATA 


CLR 2(R1) 
CMP #CR, (RO) :<CR> TERMINATES INPUT 
MO (RO) +,R2 :GET "OCTAL* DATA 

BIC #177770,R2 =STRIP UNUSED BITS 
MOV #3,R3 SET SHIFT C 

ASL (Ri) *SHIFT LAST 

ROL 2(R1) -OCTAL DIGIT 

DEC R 

BNE 2 


;AND INSERT THIS DIGIT 
13 GO GET NEXT DIGIT _ 


SEQ 0042 


mrrn 
oe 


BSS SSeS mm 


aa thd DFT MACY11 30A(1052) 21=DEC-78 13: 20 PAGE 43 
11 17-NOV-78 10:11 ASCII TO OCTAL CONVERT SUBROUTINE SEQ 0043 
003644 004737 003104 JSP PC, .RESTORE sRESTORE REGISTERS FROM THE STACK 
003650 000207 RTS PC ;RE TURN 
. SBTTL PUBLISH SUBROUTINE 
; THE LISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT= 
;ERATION (IF 16. Yoga) AND PLACES THE AVERAGE RESULT IN ‘ATIME'. 
;1T TYPES THE NAME OF THE FUNCTION THAT WAS TIMED,THE TIME SPEC- 
: IFICATION AND THE ACTUAL TIME . 
003652 PUBL I SH: 
003652 004737 003062 JSR PC, .SAVE ;SAVE REGISTERS ON THE STACK 
003656 012700 001020 MOV #ATIMTBL ,RO :GET TABLE ADDRESS CONTAINING TIMES 
3662 113701 001125 MOVB AITCNT ,R1 :GET # OF ENTRIES (GIVEN BY ITERATION COUNT) 
122701 000001 CMPB #1,R1 s;BRANCH IF SINGLE ITERATION 
003672 001423 BEQ 4$ 
003674 00500 CLR Re ;CLEAR *SUM’ REGISTERS 
003676 00500 CLR R53 
003700 122701 000020 CMPB #16.,R1 BRANCH IF 16. ITERATIONS 
003704 001402 BEQ 1$ 
003706 000000 HAL T ; ITERATION COUNT MUST BE 1 OR 16. 
003710 000777 BR ° :DOQ NOT CHANGE POSIT OF Sw11 
:WHEN TEST IS RUNNING. 
003712 062002 1$: ADD (RO) +,R2 ;SUM INDIVIDUAL TIMES 
003714 005503 ADC R3 
003716 005 DEC R1 
003720 001374 BNE 1$ 
003722 012700 000004 e$: MOV #4 RO 
003726 006203 3$: ASR R3 ;SHIFT TIME IN R35 & R2 4 PLACES 
730 006002 ROR R2 sRIGHT = DIVIDE BY 16. 
003732 005300 DEC RO 
003734 001374 3$ 
003736 010237 001016 MOV R2, WAT IME sMOVE AVERAGED TIMES 
003742 113700 001126 4%: MOVB OF TSTNUM,RO :GET TEST # 
003746 006300 ASL R 
003750 016037 002364 003760 MOV NAMPTR(RO) ,5$ sGET TEST NAME STRING ADDRESS 
003756 000004 TYPE 
003760 000000 5$: -WORD 0 
003762 113702 001126 MOVB QA TSTNUM ,R2 :GET TEST # 
3766 004737 003356 JSR PC ,OUTSPC ;OUTPUT TIMES 
003772 004737 003104 JSR PC,.RESTORE sRESTORE REGISTERS FROM THE STACK 
003776 20 RTS PC 
. SBTT INPUT SUBROUTINE 
: SUBROUT INE 16 eo. td INPUT 
‘ TNBUI DATA IS RETUNED IN BUFFER BEGINNING AT INBUF. 
004 010046 . INPUT: MOV RO,-(SP) ;SAVE RO ON THE STACK 
004002 012700 oles 1$: MOV #INBUF ,RO 
004006 105737 177 e$: TSTB aA TKS 
004012 100375 BPL 2$ 


004014 113746 177562 MOVB a#TKB,=(SP) ;GET CHARACTER 


F 4 
8 13:20 PAGE 44 


CZTEEBO TMOS-TE16/TU77 DFT MACY11 30A(1052) 21=DEC-7 

CZTEEB.P17 17-NOV-78 10:11 INPUT SUBROUTINE SEQ 0044 
1870 004020 042716 000200 BIC #200, (SP) 
1871 004024 122716 000177 CMPB #177, (SP) ; CHECK RUBOUT 
1872 004030 001004 BNE 3$ 
1873 004032 124026 CMPB ~(RO), (SP)+ sREMOVE CHARACTER FROM INPUT 
1874 004034 000004 001405 TYPE ,BKSLSH 
1875 004040 000762 BR 2$ sWAIT FOR NEXT CHARACTER 
1876 004042 122716 000025 3$: CMPB ACNTRLU, (SP) ;CHECK CONTROL U (*U) 
1877 004046 001004 BNE 
1878 004050 005726 TST (SP) + 
1879 004052 001402 TYPE , CRLF 
1880 004056 000751 BR 
1881 004060 122716 000003 4$: CMPB ACNTRLC, (SP) sBRANCH IF NOT CONTROL C 
1882 904064 001003 BNE 40$ 
1883 004066 00000 RESET RESET I/0 
1884 004070 000137 006274 JMP WINIT ;RESTART PROGRAM 
1885 004074 111637 001407 40$: MOVB (SP) ,a@#ECHO 
1886 004100 111620 MOVB (SP) , (RO) + 
1887 004102 122726 000015 CMPB #CR,(SP)+ 
1888 004106 001403 BEQ 5 
1889 004110 001407 TYPE ,ECHO 
1890 004114 000734 $ 
1891 004116 001402 5$: TYPE ,CRLF 
1892 004122 012600 MOV (SP) +,RO 
Hy od 004124 000207 RTS PC 
1895 ;KEYBOARD INTERRUPT SERVICE ROUTINE 
1896 004126 113746 177562 TKISR: MOVB A#TKB,- (SP) ;GET TYPED CHARACTER 
1897 004132 042716 000200 BIC #200, (SP) ;STRIP PARITY BIT 
1898 004136 122716 000017 CMPB A#CNTRLO, (SP) sBRANCH IF NOT CONTROL O (0) 
1899 004142 001002 BNE 1 
sont 004144 111637 002627 MOVB (SP) ,SCNTRLO ;SET CONTROL O INDICATOR IN TYPE ROUTINE 
1902 004150 122716 000003 1$: CMPB #3, (SP) sBRANCH IF NOT CONTROL C (“*C) 
1903 004154 001007 BNE 2$ 
1904 004156 023727 000042 013462 CMP W442 ,ASENDAD ; INHIBIT “*C IF ACT11 QV OR AA 
1905 004164 001403 BEQ 2$ 
1906 004166 000005 RESET 
lone 004170 000137 006274 JMP a INIT ;RESTART PROGRAM 
1909 004174 122716 000001 2$: CMPB A#CNTRLA, (SP) ;BRANCH IF NOT “A 
1910 004200 001011 BNE 3$ 
1911 004202 022737 000176 001000 CMP ASWREG , SWR ;BRANCH IF HARDWARE SWR IS INVOKED 
1912 004210 001010 BNE 
1913 004212 012737 177570 001000 MOV #177570, SWR ; INVOKE HARDWARE SwWR 
1914 004220 000004 014272 TYPE .M.HSWR 
1915 004224 122716 000007 3$: CMPB #CNTRLG, (SP) ;BRANCH IF NOT “*G 
1916 004230 001005 BNE 5$ 
1917 004232 012737 000176 001000 4$: MOV A#SWREG, SWR ; INVOKE SOFTWARE SwR 
1918 004240 004737 002526 JSR PC,GTSWR :GET NEW SWITCH REGISTER 
1919 004244 005726 5$: TST (SP) + ;POP CHARACTER OFF THE STACK 
1920 004246 000002 RT] ;RETURN TO CALLER 
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174510 


000032 


174 306 


OR SERVICE ROUTINES 


» SBTTL ERROR SERVICE ROUTINES 
inves “ee ERROR TRAPS (TRAPS TO 4) 


ERROR SERVICE ROUTINE 

; THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND HARDWARE) 
;THE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT+1>,<HLT+2> AND, FOR A 
;HARDWARE ERROR THE CALL IS <HLT>. 


LT: Jan PC,.SAVE ;SAVE REGISTERS ON THE STACK 
1$: MOVB SP, A#ERFLG ;SET ERROR FLAG 
BIT #Swi3, - @SWR ;BRANCH IF NO TYPOUT 


BNE 4 

TYPE ,E.HDR 
MOVB ;GET TEST # 

;AND TYPE IT 

;GET RETURN PC 

:NOW PC OF HLT CALL 

:NOW HLT CALL ITSELF 
:BRANCH IF HLT 


MOV 1g(SP), RO 
#2,R 

“RBS RO 

BEQ 2$ 

TYPE ,E .HDR2 

CMPR 


a #6 RO ;BRANCH IF NOT HLT+2 
JSR PC ,OUTGAP ; TYPE GAP SPECIFIED TIMES 
TYPE, CRLF 
BR 4$ 

10$: JSR PC ,OUTSPC ; TYPE SPECIFIED TIMES 
TYPE , CRLF 
BR 4 

2s: MOV ER(R5),RO 
BIT #PE1600,TC(RS5) 
BEQ 
BIC £192100 RO 

20$: BIC #102300,R0 

21$: TST RO 


BNE 22$ 
TYPE ,E.SFT ; TYPE SOFT ERROR MESSAGE 
BR 6$ 


22$: TYPE ,E.HDR1 
MOV 


R5.RO :GET FIRST ADDRESS OF REGS. 
MOV #7. ,R1 -TYPE FIRST 7 REGS. 
3g: MOV (ROS+,R2 GET REG CONTENTS 
JSR PC _TYPOCT “AND TYPE IT 
TYPE. SPACE? 
DEC 
BNE 


5s 
MOV TC<R5) ,R2 
JSR PC. TYPOCT 


:GET CONTENTS OF TC REGISTER 


TYPE ,CRLF 

4$: oh $300? 05m ;BRANCH IF NO RING THE BELL 
TYPE ,BELL 

5$: TST a Sw sHALT ON ERROR? 


SEQ 0045 


H 4 
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CZTEEB.P11 17-NOV-78 10:7 ERROR SERVICE ROUTINES SEQ 0046 
1977 004504 100001 BPL 6$ 
1978 004506 000000 HAL T 
1979 004510 6$: 
1980 004510 004737 003104 JSR PC,.RESTORE sRESTORE REGISTERS FROM THE STACK 
1oa> 004574 000002 RT] ;RE TURN 
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-P11 17-NOV-78 10:1 E SUBROUT! SEQ 0047 


SCOPE SUBROUTINE 


_— 
mn 
rm 
@ 


C 
C 


1984 
1985 : SCOPE ROUTINE 
1986 :THIS ROUTINE IS ENTERED UPON COMPLETION OF EACH SUBTEST 
1987 :THE SCOPE ROUTINE: 
1988 : REPEATS TEST IF SW14 IS SET 
1989 : STORES ACTUAL TIME FOR FUNCTION IN TIME TABLE (ATIMTBL) 
1990 : PUBLISHES TIME IF SwW10=0 
1991 : UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 
1992 : TO NEXT TEST, OTHERWISE REPEATS TEST. 
1993 DELAYS BEFORE CONTINUING OR REPEATING TEST. 
1994 INITIALIZES DRIVE 
1995 *RETURNS: R5=BASE ADDRESS OF TMO3 REGISTERS (ADDRESS OF C(S1) 
1996 : R1="DS' REG ADDRESS 
1997 : RO="FC" REG ADDRESS 
1999 004516 013705 001010 .SCOPE: MOV QA TMBASE ,R5 :SET RS TO FIRST TM REG 
2000 004522 032777 040000 174250 BIT #SW14,aSWR :BRANCH IF CONTINUOS LOOP 
2001 004530 001432 BEQ 2$ “NOT DESIRED 
2002 004532 017701 174242 1$: MOV aSwWR,R1 *GET SWITCHES 
2003 004536 042701 177740 BIC #177760,R1 :CLEAR ALL BUT TEST # 
2004 004542 001406 BEQ 11$ *BRANCH IF ALL SELECTED 
2005 004544 120137 001126 CMPB  ~—s- R11 ,@# TSTNUM :BRANCH IF RUNNING SELECTED TEST 
2006 004550 001403 BEQ 11$ 
2007 004552 012737 007756 001002 MOV #TSTOOO, SCPADR :RESTART AT TSTOOO 
2008 004560 004737 005310 11$: JSR PC DELAY “DELAY 350 MS 
2009 004564 004737 005544 JSR PC RHINIT INIT 
2010 004570° 105037 001127 CLRB  a@M#ERFLG -CLEAR ERROR FLAG 
2011 004574 013716 001002 MOV SCPADR, (SP) 
2012 004600 010501 MOV R5.R1 
2013 004602 062701 000012 ADD #D5,R1 :ADDRESS OF 'DS' REG IS IN R1 
2014 004606 010500 MOV R5,RO 
2015 004610 062700 000006 ADD #FC,RO :ADDRESS OF 'FC' REG IS IN RO 
2016 004614 000002 RT] 
2018 004616 105737 001127 2$: TSTB ~=—s- AHMERFLG :BRANCH IF ERROR FLAG IS SET 
2019 004622 001006 BNE 3$ 
2020 004624 113700 001125 MOVB  aITCNT.RO :GET ITERATION COUNT 
2021 004630 006300 ASL RO :STORE TIME IN TABLE 
2022 004632 013760 001016 001020 MOV QAATIME ,ATIMTBL (RO) 
2023 004640 105237 001125 3$: INCB = AM ITCNT : INCREMENT ITERATION COUNT 
2024 004644 105737 001134 TSTB. =—s- AAPSCNT : INHIBIT I TERAT IONS ON 
2025 004650 001410 BEQ 4$ -ON FIRST PASS 
2026 004652 032777 004000 174120 BIT #SW11,aSWR “BRANCH IF SINGLE ITERATION DESIRED 
2027 004 001004 BNE 4$ 
2028 004662 122737 000020 001125 (MPR =s- #16. .@# I TCNT :BRANCH IF ITERATIONS INCOMPLETE 
2029 004670 001320 BNE 1$ 
2030 004672 032777 000037 174190 4$: BIT #37, aSWR :IF TEST SELECTED IS TEST 0 
2031 004700 001002 BNE 42$ “TREAT AS ALL TESTS 
2032 004702 011637 001002 40$: MOV (SP) aASCPADR :SET SCOPE ADDRESS TO NEXT TES 
33 004706 032777 002000 174064 42%: BIT #Sw10,aSwR *BRANCY IF NO PUBLICATION DESTRED 
34 004714 001002 BNE 5$ 
2035 004716 004737 003652 JSR PC ,PUBLISH :GO PUBLISH TEST DATA 
004722 105037 001125 S$: CLRB a@AITCNT “RESET ITERATION COUNT 
2037 004726 000701 BR 1$ 


38 
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000024 
000024 


0v0024 


000024 


© 10024 


TIMERR: 


TIMERO: BIT #OSC ,MR(R5) 
TIMER 


J 4 
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R SUBROUT 


; SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON. 

;REGISTER 4 IS CLEARED, AND THE OSCILLATOR POLARITY IS MONITORED 
;THE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 
:SET TO 1 al i POLARITY OF THE OSCILLATOR. 


CA Li: MON 
>RETURNS: ay ey! TO INDICATE LAST POLARITY (+24/-24=0/1) 
TIMON: CLR R4 ;CLEAR TIME COUNT 
MOV #24 ,R3 s;SET POLARITY TO ‘O° STATE 
4M  _aeailans ;BRANCH IF POLARITY IS ‘O° 
1$ BIT #OSC.MR(RS) ;WAIT FOR OSCILLATOR TO RETURN 
BNE 1$ 
BR 4$ 
2S: NEG R3 ;NEGATE PREV POLARITY INDICATOR 
3$: BIT #OSC,MR(RS) sWAIT FOR OSCILLATOR TO RETURN 
BEQ 3$ :TO ‘1° STATE 
4$: RTS PC 


; SUBROUTINE TO COUNT TIME 
sEACH TIME THE OSCILLATOR TOGGLES (BIT <06> IN MR REG) REGISTER 
2R4_IS_ INCREMENTED, AND THE REGISTER R3 IS NEGATED TO INDICATE 
;THE LAST STATE OF THE OSCILLATOR. 

>CALL JMP TIMER(R3) 


3R3 IS SET BY TIMON ROUTINE 
R2=RETURN ADDRESS TO CALLER 


sNOTE: THE TIME TO EXECUTE THIS ROUTINE IS VERY CRITICAL. IT MUST BE 
;LESS THAN 40 US. 
sENTER HERE VIA JMP_ TIMER(R3) WHEN R3=-24 (PREV STATE=1) 
TIMER1: BIT #OSC ,MR(RS) ;BRANCH IF rie STATE is *?" 
BEQ TIMER >GO_ INCREMENT TIME 
JMP (R2) :RETURN TO TEST 
-=TIMER1+24 
TIMER: NEG R3 sNEGATE PREV STATE INDICATOR 
INC R4 ; INCREMENT *TICK* COUNT 
BM TIMERR ;BRANCH ON OVERFLOW 
JMP (R2) ;RETURN TO TEST 


; TYPE "TIMER OVERFLOWED" 
REPORT HARDWARE 


TYPE ,E. 17 IMOV 
HLT ERROR 
;RETURN TO BEGINNING OF TEST 


L 
JMP @SCPADR 
.=TIMER 


+24 
;ENTER HERE VIA JMP TIMER(R3) WHEN R3=+24 (PREV STATE=0) 
;BRANCH IF CURRENT STATE = ‘1° 


BNE 

JMP (R2) 
; SUBROUTINE TO CHECK TIME RECORDED BY SUBTEST. 
> THIS SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
; THAT THE TIME RECORDED BY THE SUBTEST IS CORRECT BY COMPARING THE TIME 
sWITH THE HIGH LI!T (STIMTBL(RO)) AND THE LOW LIMIT (STIMTBL+2(RO)). 
;1F THE TIME IS OUT OF RANGE AN OUT OF RANGE ERROR TYPEOUT RESULTS. 


SEQ 0048 
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CZTEE 
C7TEEB.P11 17=NOV-78 10:1 TIMER SUBROUTINES SEQ 0049 

2096 ; THE SUBROUTINE IS ENTERED WITH: 

2097 : R4=TICK COUNT 

2098 

2099 005056 T IMOK : 

2100 005056 004737 003062 JSR PC, .SAVE : SAVE REGISTERS ON THE STACK 

2101 005062 013700 001012 MOV OSCTIM,RO -GET TIME PER TICK 

2102 005066 010401 MOV R4,R1 =GET TICKS COUNT 

2103 005070 005002 CLR R2 ;CLEAR SUMMING REGISTERS 

2104 005072 005003 CLR R3 

2105 005074 060002 i$: ADD RO,R2 :MULTIPLY TIME PER TICK 

2106 005076 005503 ADC R3 >BY TICK COUNT 

2107 005100 005301 DEC R1 

2108 005102 001374 BNE 1$ 

2109 104 010246 MOV R2,-(SP) :DIVIDE COUNT BY 10. 

2111 005106 010346 MOV R3,-(SP) 

2112 005110 012746 000012 MOV #10. .-(SP) 

2113 005114 004737 005376 JSR PC DIVIDE 

2114 005120 005726 TST (SP) + :DISCARD REMAINDER 

2115 005122 012637 001016 MOV (SP) +, @#AT IME =STORE QUOTIENT 

2116 005126 113700 001126 MOVB a@4TSTNUM,RO “GET TEST # 

2117 005132 006 ASL RO 

2118 005134 006300 ASL RO 

2119 005136 023760 001016 002124 CMP QAATIME ,STIMTBL (RO) :CHECK THAT TIME IS WITHIN 

2120 005144 101004 BHI 2$ “LIMITS SPECIFIED 

2121 005146 023760 001016 002126 CMP QAATIME, STIMTBL +2(RO) 

2122 005154 101001 BHI 3$ 

2123 005156 104401 2$: HLT +1 :CALL ERROR ROUTINE 

2124 005160 3$: 

2125 005160 004737 003104 JSR PC, .RESTORE :RESTORE REGISTERS FROM THE STACK 

sise 005164 000207 RTS PC ;RETURN 

2128 ; SUBROUTINE TO CHECK INDIVIDUAL GAP TIMES (PRODUCED BY TST021) 

2129 ; SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 

2130 ; THAT THE GAP TIME RECORDED BY THE SUBTEST (TSTO21) BY COMPARING THE 

2131 :TIME WITH THE MAX LIMIT (GTIMTBL-GAPTBL(R1)) AND THE MIN LIMIT 

2132 : (GT IMTBL *2-GAPTBL (R1)) 

2133 :CA LL: ATICK COUNT R4 :R4 CONTAINS TICK COUNT 

2134 : mv #GAP , AAGAP :LOCATION GAP CONTAINS GAP # 

2135 : JSR PC, GAPOK 

2136 

2137 005166 GAPOK 

2138 005166 004737 003062 JSR PC,.SAVE : SAVE REGISTERS ON THE STACK 

2139 005172 013700 001012 MOV a4OSCTIM,RO. :GET TIME PER TICK 

2140 005176 010401 MOV R4,R1 :GET TICK COUNT 

2141 005200 005002 CLR R2 :CLEAR SUMMING REGISTERS 

2142 005202 005003 CLR R3 

2143 005204 060002 1$: ADD RO,R2 :MULTIPLY TICK COUNT 

2144 005206 005503 ADC R3 “BY TIME PER TICK 

2145 005210 005301 DEC R1 

2146 005212 001374 E 1$ 

2148 005214 010246 MOV R2,-(SP) :DIVIDE TIME BY 10. 

2149 005216 010346 MOV R3.-(SP) 

2150 005220 012746 000012 MOV 4. (SP) 

2151 005224 004737 005376 JSR PC DIVIDE 


CZTEEBO TMOS5-TE16/TU77 DFT 
CZTEEB.P11 


152 


— 
Ww 
WN 


MOMININMPMN INN NN NNNNoNoNnonyrfyg 
YSSEIEALAVZSSSIRAL 


mn 
ant and 
NN 
INN 


rmononong 
—_— — 3 2d 

SIN 
JAAR 


NoMPoMononoNonangsNonononoNonoNngnoNonononony 
ce ek tk ek kk ed tk td a dod od a od 
BSLFARAVLSSELRARATAS IS 


004737 
010246 


004737 
010246 


17-NOV-78 10:11 


002000 
003104 


004730 
005326 


005020 
004000 


001120 
004730 
005 364 


005020 
001120 


MACY11 


002264 
002266 


173502 


4 
30A(1052) 21-DEC-78 13:20 PAGE 50 
TIMER SUBROUTINES 


TST (SP) + ;DISCARD REMAINDER 
MOV (SP) + ,Q#AT IME ; STORE Bug sent 

MOVB @4GAP ,R3 :GET ay & 

ASL R3 Ye Y BY 4 

ASL R3 TO GET AT TABLE ENTRY 


eT Tee (R3) 
CMP Sev PS et ere See 


:CHECK TIME (MAX) 
sCHECK TIME (MIN) 


BHI 

HLT+2 ;REPORT OUT OF RANGE ERROR 
3$ BIT #SW10,aSWR sBRANCH IF TIMES NOT WANTED 

a 100$ 


100$: 
JSR PC, .RESTORE ;RESTORE REGISTERS FROM THE STACK 
RTS PC ;RETURN TO TEST 


. SBTT DELAY SUBROUTINES 
Boy 4 “SUBROUTINE CAUSES A DELAY OF 115 MS. 
JSR PC,TIMON 


DELAY 
MOV R2°=(SP) :SAVE R2 ON THE STACK 
MOV #2$,R2 -SET RETURN ADDRESS FOR TIMER 


1$: 

JMP TIMER(R3) :;GO TO TIMER & RETURN VIA R2 
2$: BIT #4000,R4 

BEQ 1 

MOV (SP)+,R2 sRESTORE R2 

RTS PC 


THIS SUBROUTINE pty CALLER SPECIFIED DELAY. 
;CALL : MOV DELA Ah DELTIM ;LOAD DELAY TIME (4 OF TICKS) 


JSR PC ,DELAY 
DELAYV: by DELTIM :BRANCH IF 0 DELAY 


JSR PC, TIMON : TURN TIMER ON 
MOV R2 ~ (SP) : SAVE R26 ON THE STACK 
- MOV #2$,R2 :SET RETURN ADDRESS FROM TIMER 
JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
2$: CMP QADELTIM.R4 
BHI 1$ 
MOV (SP) +,R2 :RESTORE R2 
3$: RTS PC 
.SBTTL DIVIDE SUBROUTINE 
: THIS SUBROUTINE DIVIDES A DOUBLE PRECISION # AND RETURNS THE RESULT 
:T0 THE CALLER ON THE STACK. BOTH DIVIDEND & DIVISOR MUST BE POSITIVE. 
“CALL: MOV LEAST SIGNIFICANT HALF DIVIDEND,-(SP) 
; MOV #MOST SIGNIFICANT HALF DIVIDEND.-(SP) 
MOV #DIVISOR,-(SP) 


JSR PC DIVIDE 


(SP) rye pat de ON STACK 


“RE TURN 
: 2(SP) =QUOT TEN 


SEQ 0050 
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21-DEC-78 
VIDE SUBROUTINE 
sNOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO,R1,R2 & R3. 
DIVIDE: CLR (SP) SAVE LOC FOR SIGNS 
MOV #17. 2~ (SP) 7SET ITERATION COUNT 
MOV 12(SP) ,R1 GET LSH DIVIDEND 
MOV iy ot gh »RO ;GET MSH DIVIDEND 
MOV 6(SP) .R2 :GET DIVISOR 
NEG Re sNEGATE DIVISOR 
CLC 3 sCLEAR ‘C* BIT IN PSW 
1$: ROL RO ve MSH DIVIDEND 
MOV RO,R3 IN R3 
ADD R2,R3 ‘SUBTRACT DIVISOR FROM MSH DIVIDEND 
BCC 2$ H IF DIVIDEND > DIVISOR 
MOV R3,RO SAVE REMAINDER IN 
2$: ROL R1 sROTATE LSH DIVIDEND 
33 + ;DECREMENT ITERATION COUNT 
TST (SP)+ ;POP ITERATION COUNTER 
TST (SP) + ;POP SIGN CORRECTION 
MOV R1,6{SP) ;PUSH REMAINDER ON STACK 
MOV RO,4(SP) sPUSH QUOTIENT ONTO STACK 
are (SP)+, (SP) 


.SBTTL DRIVE SUBROUTINES 


; SUBROUTINE TO CHECK IF DRIVE IS AVAILABLE 
MOVB DR RVNUM 


:CA LL: 


“RETURN: 
DRVAVA: 


1$: 


JSR PC ,DRVAVA 


"C* BIT SET_IF NOT AVAILABLE 
MOVB @ADRVNUM ,CS2(R5) ;LOAD DRIVE # 
ae 7. ,DT(RS) sCHECK IF TAPE UNIT 
JSR PC ,RHINIT 
SEV ;SET 'V* TO IND NOT AVAIL 
RTS PC ; RETURN 


+3 -~nemat > TO CHECK IF TE16/TU77 SLAVE IS AVAILABLE FOR TEST 
> CAL VB I DRVNUM 


; MO DRIVE #, sPASS DRIVE # VIA DRVNUM 
; MOVB SLAVE #4,a4SLVNUM =PASS SLAVE #4 VIA SLVNUM 
; JSR PC, SLVAVA CALL SUBROUT INE 
SLVAVA: MOVB @4DRVNUM,CS2°R5) ;LOAD DRIVE J 
MOVB a4 SL VNUM,TC(RS) ZAND SLAVE # 
Bt nee anes ;BRANCH IF SLAVE PRESENT 
SEV ;SET ‘V* TO INDICATE NO SLAVE 
1$: RTS PC 


RHINIT: 


Seb TO 
> CALL 


INITIALIZE RH CONTROLLER 
JSR PC,RHINIT 


MOV #40,(S2(R5). 
MOVB = @¥DRVNUM,(S2(R5) 

MOVB = @SLVNUM, ( 

MOV CSP) y TCERS). ;LOAD SLAVE # INTO TC REG 


SEQ 0051 
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CZ7TEEB.P11 17=NOV-78 10:11 E SUBROUTINES 
2264 005572 052765 001700 000032 BIS #NORM11,TC(R5) 
2265 005600 207 RTS PC 
2267 : SUBROUTINE TO WALT, FOR DRIVE READY (DRY) 
005602 005027 WAITRDY:CLR :CLEAR WAIT TIMER 
2269 005 WAITTIM: . WORD & 
2270 005606 105765 000012 1$: TSTB ~—— DS(RS) :WAIT FOR READY TO SET 
2271 005612 100406 BM! % 
2272 005614 005237 005604 INC WAITTIM : INCREMENT WAIT TIMER 
2273 005620 001372 | BNE 1$ :BRANCH IF TIME HAS NOT EXPIRED 
2274 005622 000004 915252 TYPE .£. TIMEXP :TYPE ‘TIME EXPIRED WAITING FOR RDY" 
2275 005626 000425 BR 99$ = TAKE ERROR EXIT 
2276 005630 032765 002000 000012 2%: BIT #EOT,DS(RS) :CHECK FOR END OF TAPE 
2277 005636 001415 EO 3$ “BRANCH IF NO EOT 
2278 005640 000004 014112 TYPE .M.NAM 
2279 005644 000004 014630 TYPE ,M.EOT : TYPE ‘END OF TAPE’ 
280 005650 004737 005706 JSR PC, REWIND sREWIND SLAVE 
2281 005654 102412 BVS 99$ =BRANCH IF ERROR ON REWIND 
2282 005656 004737 005770 JSR PC WRITE :WRITE A RECORD 
2283 005662 005215 INC (R5) sSET +60" BIT 
2284 005 °004737 005602 JSR PC WAITRDY -wWAIT FOR READY 
2285 005670 0004 BR 99$ * TAKE ERROR EXIT 
286 005672 032765 040000 000012 3$: BIT #ERR,DS(R5) =CHECK ERROR EXIT 
2287 005700 0014 BEQ 100$ 
2288 005702 000262 99$: SEV 
2289 005704 00020 100$: RTS PC 
: SUBROUTINE TO REWIND A UNIT (DRIVE/SLAVE COMBINATION) 
2291 :CALL MOVB DRIVE #,a4DRVNUM 
2292 MOVB SLAVE #,a4SLVNUM 
2293 JSR PC, .REWIND 
: SUBROUTINE RETURNS TO CALLER WITH SELECTED SLAVE AT ‘BOT’. & ‘V" SET IF 
2295 “AN ERROR OCCURS. 
2297 005706 004737 005544 .REWIND: JSR PC RHINIT : INITIALIZE CONTROLLER 
2298 005712 004337 006124 sn R3. TMCMD :GO TO TM COMMAND SUBROUTINE 
299 005716 000000 WORD 0 :BUS ADDRESS (NOT USED) 
005720 000000 WORD 0 : WORD COUNT (NOT USED) 
2301 005722 000000 WORD 0 FRAME COUNT (NOT USED) 
2302 005724 000006 .WORD RwD “REWIND COMMAND 
2303 005726 005215 INC (R5) :SET ‘GO’ BIT 
005730 032765 000002 000012 1$: BIT #BOT,DS(RS) “BRANCH IF 'BOT' SET 
2305 005736 001005 BNE $ 
2306 005740 032765 040000 000012 . BIT #ERR,DS(RS5) : CHECK ERROR BIT 
2307 005746 001006 BNE 99$ :BRANCH IF ERROR BIT SET 
3308 005750 000767 BR 1$ 
+ 2310 005752 032765 020000 000012 2$: BIT #PIP,DS(RS) :WAIT FOR TAPE MOTION TO STOP 
2311 005760 ded ‘ BNE 2$ 
2312 005762 000401 BR 100$ 
2313 005764 000262 99$: SEV | 
e314 005766 000207 + 100$: RTS PC 
2316 ; SUBROUTINE TO WRITE 256. WORD RECORD : 
Sea :CALL: JSR PC WRITE 
2319 005770 004337 006124 WRITE: JSR R3, TMCMD :GO TO TM COMMAND SUBROUTINE 
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CZ7TEEB.P11 17-NOV-78 10:1 DRIVE SUBROUTINES SEQ 0053 
2320 005774 016650 .WORD WTBUF :BUS ADDRESS 
2321 005776 177600 .WORD  WRDCNT :WORD COUNT 
2322 006000 177400 “WORD -FRMCNT :FRAME COUNT 
2323 006002 000060 WORD WFWD sWRITE FORWARD COMMAND 
3326 006004 000207 RTS PC 
2326 ; SUBROUTINE TO READ A 256. WORD RECORD. 
2307 -CALL: JSR PC READ 
2329 006006 004337 006124 READ: JSR R3,a4TMCMD 
2330 006012 016650 .WORD RDBUF ADDRESS OF READ BUFFER 
2331 006014 177600 .WORD  WRDCNT -2'°S COMPLEMENT OF WORD COUNT 
2332 006016 177400 “WORD FRMCNT 72°S COMPLEMENT OF FRAME COUNT 
2333 006020 000070 .WORD RDFWD “READ FORWARD COMMAND 
3336 006022 000207 RTS PC 
2336 ; SUBROUTINE TO INITIATE READ REVERSE COMMAND 
rte ¢ CALL: JSR PC,REVRD 
2339 006024 004337 006124 REVRD: JSR R3, TMCMD 
2340 006030 017250 .WORD RDBUF +256. ADDRESS OF READ REVERSE BUFFER 
2341 006032 177600 .WORD  WRDCNT -2°S COMPLEMENT OF WORD COUNT 
2342 006034 177400 -WORD -FRMCNT -2'S COMPLEMENT OF FRAME COUNT 
2343 006036 000076 .WORD  RDREV “READ REVERSE COMMAND 
a3 006040 000207 RTS PC 
2346 : SUBROUTINE TO SPACE FORWARD 1 RECORD 
2347 006042 012765 177777 000006 FWDSPC: MOV #-1,FC(RS5) :LOAD RECORD COUNT 
2348 006050 012715 000031 MOV asPCFUDeA. (R5) : OAD COMMAND 
2349 006054 004737 005602 JSR PC WAI TRDY “WAIT FOR READY 
2350 006060 000207 RTS PC > RETURN 
2352 ; SUBROUTINE TO WRITE A RECORD AND BACK SPACE OVER THE RECORD. 
2353 006062 004737 005770 WRT.BK: JSR PC WRITE ;WRITE THE RECORD 
2354 006066 005215 INC (R5) :SET ‘GO’ BIT 
2355 006070 004737 005602 JSR PC ,WAITRDY 
2356 006074 102412 BVS 2$ 
2357 006076 012765 177777 000006 MOV #-1, FC (RS) :LOAD RECORD COUNT 
2358 006104 012715 000033 MOV #SPCREV+1, (R5) =LOAD COMMAND 
2359 006110 004737 005602 JSR PC ,WAITRDY 
2360 006114 102402 BVS 
2361 006116 004737 005310 1$: JSR PC DELAY :WAIT FOR TAPE MOTION TO STOP 
2362 006122 000207 2$: RTS PC 
2364 ; SUBROUTINE TO LOAD A COMMAND 
2365 “CALL: JSR R3, TMCMD 
2366 : .WORD BUS ADDRESS 
2367 : .WORD WORD COUNT (2'S COMPLEMENT) 
2 : .WORD FRAME COUNT (2'S COMPLEMENT) 
$395 ; -WORD COMMAND 
2371 006124 012365 000004 TMCMD: MOV (R3)+,BA(RS) :LOAD BUS ADDRESS 
2372 006130 012365 000002 MOV (R3)+.WC(R5) *LOAD WORD COUNT 
2373 006134 012365 000006 MOV (R3)+_FC(R5) *LOAD FRAME COUNT 
2374 006140 012315 MOV in 2) +- (RS) =LOAD COMMAND 
2375 006142 000203 RTS R3 RETURN 
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RIVE SUBROUT! 


SNPT : 


MOV SN(R5) ,R3 


MOV #ODIGITS,R1 
R3 


ROR R3 
ROR R3 
ROR R3 
ROR 


R3 
BIC #177760,R3 
#260,R3 
MOVB R3, (R1)+ 
MOV SN(RS), R3 
WAB R3 
BIC #177760,R3 
#260,R3 
MOVB R3, (R1)+ 
MOV SN(R5) »R3 


ROR R3 
ROR R3 


BIC #177760,R35 
0,R5 


BIS #260, 
MCVB R3,(R1)+ 
CLR (R1 

TYPE ,ODIGITS 
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; SUBROUTINE TO PRINT SERIAL NUMBER 
SR PC ,SNPT 


;GET FIRST DIGIT 


sFILL FIRST DIGIT 


>GET SECOND DIGIT 


-GET THIRD DIGIT 


;GET FOURTH DIGIT 
;TYPE SERIAL NUMBER 
RETURN 


SEQ 0054 
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PROGRAM INITIALIZATION 


-SBTTL PROGRAM INITIALIZATION 
MOV #STKPTR,SP 


INIT: :SET STACK PTR 
CLR 
MOV a6, -(SP) :SAVE VECTORS 
MOV ays. =(SP) 
MOV #61$, :SET UP FOR TIMEOUT 
CMP #~-1,aSWR sREFERENCE HARDWARE SWITCH REGISTER 
BEQ 60$ 
BR 62$ 
61$: CMP (SP)+, (SP) + ADJUST STACK 
60$: MOV #SWREG, SWR “POINT TO SOFTWARE SWITCH REG 
62%: MOV (SP) +, aa4 “RESTORE VECTORS 
MOV (SP) +. awe 
CLRB  @#PRGFLG :CLEAR PROGRAM FLAG 
CLRB = @WASFLG = CLEAR ASK FLAG 
CLRB = A#PSCNT :SET PASS COUNT = 0 
CLR (PC)+ i: CLEAR CHAIN INDICATOR 
CHNFLG: .WORD 0 HAIN MODE INDICATOR 
::1/0 = CHAIN/NOT CHAIN MODE 
Ts] aie > BRANCH IF IN DUMP MODE 
MOV #SWREG, SWR :: INVOKE SOFTWARE SWR 
INC CHNF LG ::SET CHNFLG = CHAIN MODE 
= JMP 1$ >:GO TO CHAIN ADDRESS 
1$: CHPB Hs. aM :BRANCH IF NOT LOADED VIA TMDP 
TYPE. 1 .REM :ADVISE USER TO REMOVE TMDP 
2$: TYPE .M.NAM : TYPE TITLE 
TST CHNFLG :SEE IF CHAIN MODE 7 ' 
BNE rag :IF SO: BR 
CLRB NAM :DO NOT TYPE TITLE ON RESTART 
TYPE, I. REG :ASK USER TO TYPE CONT BASE ADRS 
MOV a4 TMBASE ,R2 =GET CURRENT CONT BASE ADDRESS 
JSR PC, TYPOCT “AND TYPE IT 
TYPE , SPACE 
JSR PC, . INPUT :GET USER INPUT 
CMPB = #CR.. a# INBUF =DO NOT CHANGE CURRENT VALUE 
BEQ 5$ “IF USER TYPES <CR> 
4$: JSR PC, CNVT =CONVERT ASCII TO OCTAL 
MOV BHOCTALOS aa TMBASE “SET NEW ADDRESS 
S$: MOV QA TMBASE .RS 
;ROUTINE TO CHECK IF CONTROLLER (RK11) IS AVAILABLE 
TST (R5) “BRANCH IF CONTROLLER AVAIL 
BCC 6$ 
TYPE ,E .NCON 
BR INIT 
6$: MOV #ERRTRP, a#ERRVEC :SET ERROR TRAP VECTOR 


SEQ 0055 
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001162 


014766 


;ROUTINE TO GET TMO3 DRIVES USER DESIRES TO TEST 
RB @VERFLG 


DRIVES: CL :CLEAR ERROR 
MOV #DRVTBL.R1 :MARK ALL DRIVES AS NOT TO 
MOV #4,RO :BE TESTED. A ‘0’ INDICATES 
1$: CLR (R1)+ :THAT A DRIVE IS NOT TO BE 
DEC RO = TESTED 
BNE 1$ 
TST CHNF LG :BRANCH IF IN CHAIN MODE 
BNE 2 
TYPE, 1.DRVS 
JSR PC,. INPUT :GET USER INPUT 
MOV #INBUF .RO 
CMPB ss # "A, (RO) : IF USER RESPONDS WITH 'A' OR 
BEQ $ :<CR> THEN ALL AVAILABLE DRIVES 
CMB #CR, (RO) :ARE TO BE TESTED 
?$: MOVB = SP, PRGFLG :SET FLAG TO IND ALL DRIVES 
MOV #DRVTBL RI :MARK ALL DRIVES TO BE TESTED 
MOV #4.RO -1'" INDICATES THAT A DRIVE 
3$: MOV #-1,(R1)+ ts TO BE TESTED 
DEC RO 
BNE 3$ 
BR CHKDRV :GO CHECK DRIVE AVAILABILITY 
:GET USER SELECTED DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 
4$: CMPB.—s #CR., (RO) 
BEQ CHKDRV 
CMB (RO) 4A . =CHECK IF "COMMA’ 
TSTB ~—- (RO) + :STEP PTR PAST 'COMMA’ 
S$: MOVB  (RO)+.R1 
BIC #177770,R1 
MOVB  #-1,DRVTBL(R1) 
NOP 
BR 4$ 
;ASCERTAIN THAT DRIVES (TMO3'S) SPECIFIED ARE AVAILABLE 
CHKDRV: CLR R :A (0) IN DRVTBL(RO) INDICATES 
1$: TSTB ~—s DRVTBL (RO) :THE DRIVE IS NOT TO BE TESTED 
BNE 3$ -A '1" INDICATES TO BE TESTED 
2$: INC RO 
CMPB ~=—s-« #8. RO 
BNE 1$ 
BR 5$ 
3$: MOVB RO, a#DRVNUM :GET DRIVE # 
JSR PC a#DRVAVA :AND CHECK IF AVAILABLE 
BVC 2$ :'V" BIT SET INDICATES NOT AVAIL 
TSTB = @#PRGFLG :DO NOT TYPE NOT AVAILABLE 
BNE 4$ -MESSAGE IF ALL SELECTED 
TYPE ,E .NDRV 
me. . DIGTAB CRO) QE .NAVA :SET DRIVE # IN MESSAGE 
MOVB -. MFERFLG :SET "ERROR' FLAG 
4$: CLRB DRVIBL (RO) :MARK DRIVE UNAVAILABLE 
BR “CHECK NEXT DRIVE 
S$: TSTB SHERFLG :GO GET SLAVES IF NO ERROR 


SEQ 0056 
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sELSE ASK USER TO RETYPE DRIVES 


SLAVES (TE16/TU77'S) USER DESIRES TO TEST 
@FERFLG AR 


ER ol INDICATOR 


K ALL SLAVES (64.) AS NOT 
:TO BE TESTED.A 0 INDICATES THAT 
:A DRIVE" S SLAVE IS NOT TO BE 


:R1 POINTS TO DRIVE'S SLAVE 
BRANCH IF DRIVE IS TO BE TESTED 
+ IS AVAILABLE 

>STEP SLAVE PTR TO NEXT DRIVE'S 
:SLAVES AND INCREMENT DRIVE # 
;CHECK ALL DRIVES 
;AND WHEN ALL DRIVES CHECKED 
:GO CHECK SLAVE AVAILABILITY 


;BRANCH IF USER SELECTED ALL 
DRIVES 
:GET DRIVE # 

;PREPARE USER ACTION MESSAGE 
;GET USER INPUT 

+4 PTR TO USER INPUT 


"A' OR <CR> AS FIRST CHAR 
; INDICATES TEST ALL SLAVES 


;SET "ALL* INDICATOR 
sMARK ALL SLAVES FOR ALL 
;DRIVES AS TO BE TESTED 


sBRANCH IF ALL WAS SELECTED 


:GET USER SELECTED SLAVES FOR 
“STEP PTR PAST ‘COMMA’ 


ne 10 @ K SELECED SLAVE 
AS TO BE TESTED 


aAKS (TE16/TU77"S) SELECTED ARE AVAI 


21=DEC-78 
PROGRAM INITIALIZATION 
BNE DRIVES 
:ROUTINE TO GET 
SLAVES: CLRB L : 
MOV #SLVTBL.R1 
MOV #32.,RO0 
1$: CLR (R1)+ 
DEC RO 
BNE 1$ 
MOV #SLVTBL R1 
2$: TSTB —sDRVTBL (RO) 
BNE 4$ 
3$: ADD #8.,R1 
INC RO 
CMPB —so#f'8. .RO 
BNE 2$ 
BR CHKSLV 
4$: TSTB = @#PRGFLG 
BNE 5$ 
MOVB RO, DRVNUM 
MOVB  DIGTAB(RO),a41.DRV 
TYPE ,I.SLVS 
JSR PC, . INPUT 
MOV #INBUF .R3 
CMPR so #''A, (RB) 
BEQ $ 
CMPB ss ACR, (R33) 
BNE $ 
S$: MOVB SP. @#PRGFLG 
MOV #SLVTBL.R1 
MOV 4 . ,RO 
6$: MOV #-1,(R1)+ 
DEC RO 
BNE 6$ 
TSTB  a@APRGFLG 
BNE CHKSLV 
7$: CMPB —s- #CR| (R3) 
BEQ 
CMPB (R3) 4", 
BNE 8$ 
TSTB (R3)+ 
8¢: MOVB (R3) +. RG 
BIC #177770.R4 
ADD R1_R4 
MOVB = = 1, (RG) 
BR 7$ 
:ASCERTAIN THAT 
CHKSLV: CLR 
CLR R1 
MOV #SLVTRL .R2 
1$: TSTB ~—s DRVTAL (RO) 
BNE 33 
2$: INC RO 


LABLE 
7RO WILL ne SLAVE DRIVE # 


INCREMENT DRIVE # 


SEQ 0057 
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PROGRAM INITIALIZATION 


3$: 
4$: 


5$: 


6$: 


7$: 


8$: 


100$: 


ADD #8.,R2 


CMP #8. ,RO 

BNE 1$ 

BR 8$ 

CLR R 

TSTB ~—_ (R2) 

BNE 

INC R1 

INC R2 

CMP #8.,R1 

BNE 4$ 

BR 2$ 

MOVB RO, a#DRVNUM 
MOVB R11, a#SLVNUM 
JSR PC, a#SLVAVA 
BVC S$ 

TSTB = AFPRGFLG 
BNE 7$ 

MOVB DIGTAB(RO) ,a#E . DRV 
MOVB  DIGTAB(R1)a#E.NAVA 
TYPE ,E.NSLV 

MOVB SP. a#ERFLG 
CLRB (R2) 

BR 5$ 

TSTB  a@#ERFLG 

BNE 


SLAVES 
MOV #MERRTRP ,a#ERRVEC 


4 i SLAVE PTR TO NEXT DRIVE'S 
;SLAVES. BRANCH TO 1$ IF NOT ALL 
:DRIVES CHECKED OTHERWISE EXIT 


;SET SLAVE # 0 
BRANCH IF war SLAVE IS SEL- 


; SLAV 
:GO TO 4$ IF ALL SLAVES NOT 
; CHECKED 

:OTHERWISE GO TO 2$ ABOVE 


sPASS DRIVE & SLAVE # 
+ AND CHECK IF ate teat 


;ICATES ERROR. PREPARE ERROR 
sMESSA 
;SET ERROR INDICATOR 


;CLEAR SLAVE TABLE ENTRY 
;GET NEXT SLAVE 


;BRANCH IF ERROR 
sASK USER TO RETYPE SLAVES 


SCAN DRIVE AND SLAVE TABLE FOR DRIVE/SLAVE COMBINATION TO TEST. 
;RESTART ADDRESS=-PROGRAM STARTS HERE WHEN START ADDRESS = 210 AND 
ZAP TER > Te a ae COMBINATIONS oriie a 3 TESTED. —- 


2$: 


ra 


a4DRVNUM 
a4SLVNUM 

MOV ASLVIBL ,@ASLVPTR 
AUNT F ND 


@4'SL VNUM ,R1 
MOV AFSLVPTR,R2 
CMPB 46,0441 

BN 1$ 

CLRB (R2) 

TSTB DRVTBL (RO) 
BN 


E 3$ 
CLR R1 
ADD #8. ,R2 
INC RO 
CMP #8. .RO 
BNE 13 
JMP aE ND 


;SET ST 
:SET DRIVE AND SLAVE # 0 


;SET PTR TO SLAVE TABLE 
;CLEAR ‘UNIT FOUND’ IND. 


ota RESTARTS HERE AFTER A DPIVE/SLAVE HAS e's TESTED. 
BEGIN: MOVB @FDRVNUM , RO ;GET DRIVE # 


;AND SLAVE # 
;GET SLAVE P 
:BRANCH IF LOADED VIA TMDP 


;SET DRIVE #0,SLAVE #0 NOT TO 
;BE TESTED. 
;BRANCH IF DRIVE AVAIL TO TEST 


;CLEAR SLAVE # 
:AND STEP PTR TO NEXT DRIVE'S 


; CHECKED OTHERWISE CONT INUE 
SCAN FOR NEXT “UNIT 


SEQ 0058 
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C2TEEB.P11 17=NOV-78 10:1 ROGRAM INITIALIZATION SEQ 0059 

2631 
2632. 007476. 105712 _ 3S: TSTB = (R2)_—itétw :BRANCH IF SLAVE-ON DRIVE JS -. ———s vie 
2633 007500 001007 BNE 4$ AVAILABLE THERWISE STEP 
2634 007502 005202 INC R2 R TO NEXT SLAVE 
2635 007504 005201 INC R1 ‘INCREMENT SLAVE # 
2636 007506 122701 000010 (MPB so #8. RT ‘UNTIL ALL SLAVES CHECKED 
2637 007512 001371 BNE 3$ “WHEN ALL SLAVES CHECKED 
2638 007514 005001 CLR R1 :SET SLAVE # 0 
2659 007516 000761 BR 2$ AND CONTINUE SCAN 
2641 007520 110637 001132 4$: MOVB = SP, A#UNTF ND : INDICATE THAT A ‘UNIT’ IS FOUND 
2642 007524 110037 001004 MOVB RO, a#DRVNUM -SET DRIVE # 
2643 007530 110137 001005 MOVB  R1.a4SLVNUM “SET SLAVE # 
2644 007534 010237 001006 MOV R2. a4SLVPTR “SAVE SLAVE PTR 
2646 007540 105737 001135 S$: TSTB @#ASFLG 
2647 007544 001034 BNE 7$ 
2648 007546 112737 000001 001135 MOVB  #1.ASFLG 
2649 007554 005737 006372 TST CHNFLG :BRANCH IF IN CHAIN MODE 
2650 007560 001026 BNE 7$ 
2651 007562 105037 001130 CLRB a@ASKEWFLG :++B CLEAR SKEW (SPEED) TESTS SELECTED FLAG 
2652 007566 000004 014575 TYPE ,1.SPD “ASK USER IF HE WANTS TO RUN SPEED TESTS 
2653 007572 004737 004000 JSR PC,. INPUT :GET U USER INPUT 
2654 007576 012703 001272 MOV #INBUF .R3 :GET REPL 
2655 007602 122713 000015 CMPB —s-« HR, (R’3) =DO NOT D0 SKEW TESTS IF <CR> IS FIRST 
2656 007606 001405 BEQ $ 
2657 007610 132713 000001 BITRB = #1, (R3) :BRANCH IF 'N* 
2658 007614 001402 BEQ 6$ 
2659 007616 111337 001130 MOVB  (R3),@4#SKEWFLG ;:SET INDICATOR 
2660 007622 022737 000176 001000 6%: CMP #SWREG, SWR :BRANCH IF SOFTWARE SWR 
2661 007630 001002 BNE 7$ “NOT INVOKED 
2662 007632 004737 002526 JSR PC, GTSwWR =GET SWITCH REGISTER 
2663 007636 7$: 
2664 sROUTINE TO ASCERTAIN SLAVE TYPE AND LOAD APPROPRIATE SPECFICATION 
2665 : TABLES (TE16 OR TU77) INTO STIMTBL AND GTIMTBL. 
2666 007636 013705 001010 MOV @4TMBASE .R5 :GET BASE ADDRESS OF REGISTERS 
2667 007642 004737 005544 JSR PC .RHINIT - INIT DRIVE/SLAVE 
2668 007646 012704 000240 MOV #ENDTBL-STTBL.R4:GET TABLE LENGTH 
2669 007652 012703 002124 MOV #STIMTBL .R3 :AND STARTING ADDRESS OF TABLE 
2670 007656 012702 001424 MOV #TEI6TTBL,R2 § :GET ADDRESS OF TE16 TIME TABLE 
2671 007662 105037 001136 CLRB = AMTE 16 “SET FLAG = TE16 
2672 007666 032765 000004 000026 BIT #4 ,DT(RS) “BRANCH IF TU77 
2673 007674 001012 BNE 9$ 
2674 007676 012737 000070 001012 MOV #56. ,OSCTIM :SET US/TICK = 56 
2675 007704 012737 000022 001014 MOV #18. ,GAPDEL “SET 18 TICKS/MS 
2676 007712 112223 8$: MOVB (R2)+,(R3)+ “MOVE TE16 TIME AND GAP TABLES 
2677 007714 005304 DEC R4 -INTO STIMTBL & GTIMTBi 
2678 007716 001375 BNE 8$ 
2679 007720 000416 | BR 113 -EXIT ROUTINE 
2681 007722 012702 001664 $: MOV #TUZ7TIBL , R2  —s«sGET ADDRESS OF TU77 TIME TABLE 
2682 007726 112737 000001 001136 MOVB QATE16 “SET FLAG = TU77 
2683 007734 012737 000120 001012 MOV AO a ,OSCTIM “SET US/TICK = 80 

007742 012737 000003 001014 MOV #3. GAPDEL -SET 3 TICKS PER .25MS 
2685 007750 112223 10$: MOVB  (R%)+, (RR) + :MOVE TU77 TIME AND GAP TABLES 

007752 005304 DEC R4 “INTO STIMTBL & GTIMTBL 
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CZ7TEEB.P11 17=NOV-78 10:11 ROGRAM INITIALIZATION SEQ 0060 
2687 007754 001375 BNE 10$ 
2688 007756 11$: 
2689 
2690 :NOTE THIS IS NOT A TEST 
2691 - INITIALIZE PROGRAM FLAGS 
2692 007756 105037 001126 TSTOOO: CLRB § a#TSTNUM :SET TEST # 0 
2693 007762 013705 001010 MOV QA TMBASE ,RS “SET ADDRESS OF FIRST TMO3 REG 
2694 007766 010500 MOV R5,RO 
2695 007770 062700 000006 ADD #FC,RO :RO CONTAINS ADDRESS OF FC REG 
269% 007774 010501 MOV R5,R1 
2697 007776 062701 000012 ADD #DS,R1 :R1 CONTAINS ADDRESS OF DS REG 
2698 010002 012703 005020 MOV #TIMER,R3 -SET JUMP ADDRESS TO TIMER 
2699 010006 105037 001125 CLRB = AMITCNT “CLEAR SUBTEST ITERATION COUNT 
2700 010012 052737 000100 177560 BIS #100, a4TKS -SET KEYBOARD IE BIT 
2702 :GET USER RUN PROCEDURE 
2703 -IF SWR <05::00> IS NOT 0 THEN RUN TEST IN SWR<05::00> 
2706 “OTHERWISE RUN ALL TESTS 
2706 010020 004737 005706 JSR PC, .REWIND :REWIND SLAVE 
2707 010024 102504 BVS 99$ =BRANCH IF ERROR ON REWIND 
2708 010026 105737 001130 TSTB  a@4SKEWFLG :++B BRANCH IF SwWEW (SPEED) TEST SELECTED 
2709 010032 001006 BNE 10$ 
2710 010034 004737 005770 JSR PC WRITE :WRITE A RECORD 
2711 010040 005215 INC (R5) :SET 'GO' BIT 
2712 010042 004737 005602 JSR PC, WAITRDY “WAIT FOR READY 
2713 010046 102473 BVS 99$ ; 
2714 010050 117702 170724 10$: MOVB aSWR,R2 :GET SWITCHES 
2715 (10054 042702 177740 BIC #177740,R2 :CLEAR ALL BUT TEST 
2716 910060 001421 - BEQ 2$ =® BRANCH IF TEST 0 WAS SELECTED 
2717. (01 000004 | 015114 TYPE ,E.HDR :TYPE TEST # 
2718 010066 004737 003134 JSR PC, TYPOCT 
2719 010072 006302 ASL R2 :FORM INDEX VALUE 
2720 010074 016237 002364 010104 MOV NAMPTR(R2),1$ GET ADDRESS OF TEST'S NAME 
2721 010102 000004 TYPE “AND TYPE IT 
2722 010104 000000 1$: . WORD ; 
2723 010106 000004 001402 TYPE, CRLF 
2724 010112 016237 002444 001002 MOV TSTTBL (R2) , @ASCPADR :SET SCOPE ADDRESS FOR TEST 
2725 010120 000172 002444 JMP ATSTTBL (R2) -GO TO TEST 
2726 010124 032777 002000 170646 2%: BIT #SW10,aSWR :BRANCH IF TIMES NOT TO BE TYPED 
2727 010132 001034 BNE 5$ 
2728 010134 000004 015323 TYPE,L.HDR1 
2729 010140 113702 001004 MOVB  DRVNUM,R2 :GET DRIVE 4 
2730 010144 113704 001005 MOVB — SLVNUM,.R4 “AND SLAV 
2731 010150 116237 001140 015505 MOVB  DIGTAB(R2). aL .DRV >SET DRIVE AND SLAVE #'S 
2732 010156 116437 001140 015517 MOVB DIGTAB(R4) .aaL.SLV : INTO L.HDR2 MESSAGE 
2733 010164 000004 015440 TYPE ,L..HDR2 
2734 010170 105737 001136 STB) —s- AATE16 :BRANCH IF NOT TE16 
2735 010174 001003 BN 
2736 010176 000004 015523 TYPE ,L.TE16 -TYPE "TE16' 
2737 010202 000402 BR 4$ 
2738 010204 009004 015531 3$: TYPE ,L.TU77 :TYPE ‘TU77 
2739 010210 000004 015537 4$: TYPE,L.SER s TYPE ‘SERIAL #' 
2740 010214 004737 006144 JSR PC. SNPT :PRINT SLAVE SERIAL # 
2741 010220 000004 015551 TYPE .L.HDR® 
2742 010224 105737 001130 S$: TSIB)—s @ASKEWFLG :++B BRANCH IF SPEED TESTS NOT 
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CZ 
CZTEEB.P11 17-NOV-78 10:11 INITIALIZATION SEQ 0061 
2743 010230 001405 BEQ 100$ ; SELECTED 
2744 010232 000137 013526 JMP @ASKEWTST :GO DO SPEED TESTS 
2745 010236 104400 99$ : HLT 
2746 0102460 000137 007756 JMP TSTOOO ;LOOP TEST AS LONG AS ERROR PERSISTS 
2747 010264 012737 010252 001002 100%: MOV #TSTOO1 ,@#SCPADR ;SET SCOPE LOOP ADDRESS 


CZTEEBO TMOS-TE16/TU77 DFT 


CZTEEB.P11 
2749 

2759 

2751 

2752 

2753 

2754 

2755 

2756 010252 
2757 010260 
2758 010264 
2759 010270 
2760 010272 
2761 010276 
2762 010302 
2763 

2764 010304 
2765 010310 
2766 010312 
2767 

2768 010316 
2769 010322 
2770 010324 
2771 0330 
2772 010332 
27735 010334 
2774 

2775 

2776 

2777 010336 
2778 01034 
2779 010350 
2780 010354 
2781 010360 
2782 

2783 010362 
2784 010366 
2785 010370 
2786 

2787 010374 
2788 0104 
2789 010402 
2790 010406 
2791 

2792 010410 
2793 010412 
2794 

2795 

2796 

2797 =010414 
2798 010422 
2799 010426 
2800 

2801 010430 
2802 010432 
2803 010434 
2804 010440 


112737 
004737 
012702 
004737 


17-NOV-78 10:11 


000001 
010304 
005 706 


005770 
004730 


000032 
005020 
005602 
005056 


000032 
005020 
005602 
005056 


000003 
005770 


040000 


MACY11 30A(1052) 
START OF 


001126 


001126 


001126 
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TESTS 


TTL 


TAPE 


. SB START OF TESTS 
;TEST 001 = wRITE FROM BOT 
; THIS hs WILL MEASURE ACCELERATION DELAY yy pe TO 
VE THE APPROXIMATELY SEVEN (7) F ORWARD 


INCHES 


FROM DEAD STOP BEFORE STARTING TO TRANSFER DATA, 
;THIS TEST MEASURES TIME FROM ‘GO'=1 TO hs ef 
MOVB #1 .@ATSTNUM ;SET TEST 


TSTO01: 


2$: 


99$: 
100$: 


PC. REWIND 
99$ 

PC WRITE 
PC. TIMON 
(R5) 


TC(R5S) 
$ 


TIMER(R3) 
PC ,WAITRDY 
99$ 

PC, TIMOK 


100$ 


; TEST 002 = WRITE STAR 
; THIS TST By ey? TIME FROM 'GO*=1 TO ‘ACCL*=0. 


TSTO02: 


2$: 


99$: 
100$: 


TEST 003- WRITE SHUTDOWN 
;THIS_ TEST MEASURES TIME +e "FC 
ny 43, QATSTN 


a RITE 


TSTO03: 


1$: 


HLT 
SCOPE 


TiC 


Badd hae 
WRITE 


ats R2 


PC, TIMON 


(R5) 
TC(RS) 
2$ 


TIMER(R3) 
PC ,WAJ TRDY 
PC, TIMOK 


100$ 


(RO) 
$ 


2 
4.2R,(R1) 
99$ 


;SET RETURN PC FROM TIMER 
;REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
;GO a WRITE COMMAND 

iT TIMER ON 


:SET "GO" BIT 


;BRANCH WHEN ‘ACCL '=0 
;GO TO TIMER & RETURN VIA R2 


;WAIT FOR COMMAND TO FINISH 
:BRANCH IF ERROR 
:GC CHECK TIME 


sSET TEST # 2 
s INITIATE WRITE COMMAND 


:SET RETURN PC FROM TIMER 
;SET ‘GO’ BIT 

;BRANCH WHEN ‘ACCL‘'=0 

:GO TO TIMER & RETURN VIA R2 


sWAIT FOR READY 

;BRANCH IF ERROR 

:GO CHECK TIME RECORDED 
sEXIT VIA SCOPE 


;REPORT ERROR 


REG*=0 TO "SWDN‘'=1. 


sSET TEST#S 
: INITIATE “0 be COMMAND 
:SET ‘GO’ BIT 


;BRANCH WHEN WRITING FINISHED 
:MONITOR ERROR BIT 


SEQ 0062 


CZTEEBO TMO3-TE16/TU77 “| 
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2805 


010516 
010520 


17-NOV-78 


000772 


112737 
004737 
102422 
004737 
012702 


004730 
000020 
005020 
005602 
005056 


000004 
005770 


040000 


000020 
040000 


004730 
000020 
005020 
005602 
005056 


000005 
005706 


006006 
010644 
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START OF TESTS 


001126 


001126 


BR 1$ 
23: 

JSR PC, TIMON : TURN TIMER ON 

MOV PC ,R2 “LOAD RETURN PC FROM TIMER 
3$: BIT #SDWN, (R1) :BRANCH WHEN DS <SDWN> SETS 

JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
4$: JSR PC WAI TRDY :WAIT FOR READY 

BVS 99$ : 

JSR PC, TIMOK :GO CHECK TIME RECORDED 


BR 100$ 
993: HLT :REPORT ERROR 
100$: SCOPE 


TEST 004 = WRITE SETTLEDOWN 
: THIS TEST MEASURES TIME FROM 'SWDN'=1 TO 'SWDN’=0. 
TST004: MOVB #4 ,aATSTNUM 


JSR PC WRITE 
INC (R5) :SET 'GO' BIT 
1$: Ist {R0) :BRANCH WHEN WRITING FINISHED 
BIT #ERR, (R1) :CHECK ERROR BIT 
BNE 99$ 
BR 1$ 
2$: B11 #SDWN, (R1) sWAIT FOR ASSERTION OF '‘SDWN' 
BIT #ERR, (R1) :MONITOR ERROR BIT 
BNE 99$ 
HR 2$ 
3$: 
JSR PC, TIMON : TURN TIMER ON 
MOV PC,R2 :SET RETURN PC FROM TIMER 
BI ! ASDWN, (R1) :BRANCH WHEN SWDN CLEARS 
JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
5$: JSR PC ,WAITRDY sWAIT FOR READY 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 
993: HLT 
100$: SCOPE 


;TEST 005 = READ FROM BOT 
THIS ag me” je TIME FROM ‘GO*=1 TO ‘ACCL‘= 


+ST005: #5 ,Q4TSTNUM Pe a TEST #5 
SR PC,.REWIND ;REWIND SLAVE 
BVS 99$ =BRANCH IF ERROR ON REWIND 


JSR Pe wt 


MOV #1$,R2 :SET RETURN PC FROM TIMER 


SEQ 0063 
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C2TEEB.P11 17=NOV-78 10:11 START OF TESTS SEQ 0064 
2861 010636 004737 004730 JSR PC, TIMON : TURN TIMER ON 
286¢ 010642 005215 INC (R5) “SET 'GO’ BIT 
2864 010644 005765 000032 1$: TST TC(RS) ;BRANCH WHEN 'ACCL' RESETS 
2865 010650 100002 BPL q 
2866 010652 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
2868 010656 004737 005602 2$: JSR PC ,WAITRDY :WAIT FOR READY 
2869 010662 102403 BVS 99$ :BRANCH IF ERROR 
2870 010664 004737 005056 JSR PC, TIMOK -CHECK RECORDED TIME 
2871 010670 000401 BR 100$ 
2873 010672 104400 99%: HLT 
2874 010674 104000 100$: SCOPE 
2876 : TEST 006 - READ START 
2877 -THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘ACCL‘=O. 
2878 010676 112737 000006 001126 TST006: MOVB  #6,a4#TSTNUM :SET TEST #6 
2879 010704 004737 006062 JSR PC WRT .BK “WRITE A RECORD & BACK SPACE 
2880 010710 102422 BVS 99$ 
2881 010712 004737 006006 JSR PC READ 
2882 010716 012702 010730 MOV #1$,R2 :SET RETURN PC FROM TIMER 
2883 010722 004737 004730 JSR PC. TIMON -TURN TIMER ON 
2884 010726 005215 INC (R5) “SET ‘GC’ BIT 
2886 010730 005765 000032 1$: TST TC(RS) :BRANCH WHEN ‘ACCL' RESETS 
2887 010734 100002 BPL 2$ 
2888 010736 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
2890 010742 004737 005602 2$: JSR PC ,WAITRDY 
2891 010746 102403 BVS 99$ 
2892 010750 004737 005056 JSR PC, TIMOK 
2893 010754 000401 BR 100$ 
2895 010756 104400 99$: HLT 
2896 010760 104000 190$: SCOPE 
2898 :TEST 007 - READ SHUTDOWN 
2899 “THIS TEST MEASURE S TIME FROM ‘FC REG'=FRAME COUNT TO ‘SWDN'=1. 
2900 010762 112737 000007 001126 TST007: #7, aM! STNUM :SET TEST #7 
2901 010770 004737 006062 in PC’ WRT .BK :WRITE A RECORD & BACK SPACE 
2902 010774 102430 BVS 99$ *BRANCH IF ERROR 
2903 010776 004737 006006 JSR PC_ READ 
290% 011002 005215 INC (R5) :SET 'GO' BIT 
2906 011004 022710 000400 1$: CMP #-F RMCNT, (RO) :WAIT FOR FRAME COUNT TO 
2907 011010 001404 BEQ f -= # OF FRAMES WRITTEN 
2908 011012 032711 040000 BIT #ERR,(R1) -MONITOR ERROR BIT 
2909 011016 001017 BNE 993 
2910 011020 000771 BR 1$ 
2912 011022 2$: 
2913 011022 004737 004730 JSR PC. TIMON : TURN TIMER ON 
2914 011026 010702 MOV PC,R2 -SET RETURN PC FROM TIMER 
2915 011030 032711 000020 BIT #— AWN, (R1) “BRANCH WHEN SDWN SETS 
2916 011034 001002 BNE 3$ 
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START OF TESTS 


001126 


000012 


001126: 


3$: 


993: 
100$: 


JMP 


HLT 


SCOPE 


TIMER(R3) 


PC WAITRDY 
99§ 

PC. TIMOK 
100$ 


:GO TO TIMER & RETURN VIA R2 


;REPORT ERROR 


; TEST 010 = READ SETTLEDOWN 


tcoas TEST MEAS 


TSTO10: MOVB 


2$: 


34: 
4$: 


S$: 


99$: 
1C0$: 


TEST Q11-READ REVERSE START 
THIS TEST MEASURES TIME FROM ‘GO"=1 TO ‘ACCL‘=0. 
TSTO11: MOV 171 ,Q4TSTNUM 


HLT 


MOVB 


L 
SCOPE 


URES TIME FROM ‘SWDN'=1 TO ‘SWDN'=0 


:SET TEST #10 


#10, a4TSTNUM 

#4$. -SET RETURN PC FROM TIMER 

PC WRT .BK sWRITE A RECORD & BACK SPACE 
PC READ 

(R5) “SET 'GO' BIT 


(R1) ;WAIT FOR READY 


2$ “BRANCH WHEN SET 
#ERR,(R1) -CHECK ERROR BIT 

99$ 

1$ 

#SDWN, (RI) ;WAIT FOR ASSERTION OF ‘SDWN' 
HERR, (R1) :MONITOR ERROR BIT 

99$ , 

2$ 

PC, TIMON : TURN TIMER ON 

#SDUN.DS(RS) :WAIT FOR NEGATION OF SDWN 
TIMER(R3) :GO TO TIMER & RETURN VIA R2 
PC ,WAITRDY 

99$ 

PC, TIMOK 

100$ 


#1$,R2 ;SET RETURN PC FROM TIMER 

PC WRITE ;WRITE A RECORD 

(R5) :SET ‘GO’ BIT 

PC ,WAITRDY 

99$ 

Pc DELAY sWAIT FOR TAPE MOTION TO STOP 


PC ,REVRD 


SEQ 0065 
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C7TEEB.P11 17=NOV-78 10:11 START OF TESTS SEQ 0066 
2973 011240 004737 004730 JSR PC. TIMON : TURN TIMER ON 
297% 011244 005215 INC (R5) :SET 'GO' BIT 
2976 011246 005765 000032 1$: TST TC(RS) :BRANCH WHEN 'ACCL' = 0 
2977 011252 100002 BPL 
2978 011254 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
2980 011260 004737 005602 2$: JSR PC ,WAITRDY 
2981 011264 102403 BVS 99$ :BRANCH IF ERROR 
2982 011266 004737 005056 JSR PC, TIMOK 
2985 011272 000401 BR 100$ 
2985 011274 104400 99$: HLT 
2986 011276 104000 100$: SCOPE 
2988 : TEST 012-READ REVERSE SHUTDOWN 
2989 :THIS TEST MEASURES TIME FROM 'FC REG’ = FRAME COUNT TO 'SDWN'=1. 
2990 011300 112737 000012 001126 7%ST012: MOVB.§ #12.a#TSTNUM 
2991 011306 012702 011356 MOV #3$,R2 :SET RETURN PC FROM TIMER 
2992 011312 004737 005770 JSR PC WRITE “WRITE A RECORD 
2993 011316 005215 INC (R5) “SET 'GO' BIT 
2994 011320 004737 005602 : JSR PC ,WAITRDY 
2995 011324 102427 BVS 
2996 011326 004737 006024 JSR PC .REVRD 
2997 011332 005215 INC (R5) :SET 'GO' BIT 
2999 011334 022710 000400 1$: CMP #-FRMCNT, (RO) ;BRANCH WHEN FRAME COUNT 
3000 011340 001404 BEQ 2$ = # OF RECORD WRITTEN 
3001 011342 032711 040000 BIT #ERR, (R1) “ MONI TOR ERROR BIT IN "DS" REG 
3002 011346 001016 BNE 99$ 
3003 011350 000771 BR 1$ 
3004 
3005 011352 2$: 
3006 011352 004737 004730 JSR PC, TIMON :TURN TIMER ON 
3007 011356 932711 000020 3$: BIT #SDWN, (R1) “BRANCH WHEN SDWN SETS 
3008 011362 001002 BNE 4 
3009 011364 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3011 011370 004737 005602 4$: JSR PC ,WAITRDY :WAIT FOR READY 
3012 011374 102403 BVS 99$ 
3013 011376 004737 005056 JSR PC, TIMOK 
3014 011402 000401 BR 100$ 
3016 011404 104400 99$: HLT 
3017 011406 104000 100$: SCOPE 
3019 : TEST 013-READ REVERSE SETTLEDOWN i 
3020 THIS TEST MEASURE S TIME FROM 'SDWN'=1 TO “SDWN'=0. 
3021 011410 112737 000013 001126 TST013: #13, a4TSTNUM 
3022 011416 012702 011502 MOV #4$,R2 :SET RETURN PC FROM TIMER 
3023 011422 004737 005770 JSR PC WRITE “WRITE A RECORD 
3024 011426 005215 INC (R5) =SET 'GO' BIT 
3025 011430 004737 005602 JSR PC WAI TRDY 
3026 011434 102435 BVS 99$ 
3027 011436 004737 006024 JSR PC REVRD 
3028 011442 005215 INC (R5) :SET ‘GO’ BIT 
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3029 

3030 011444 
3031 011446 
3032 011450 
30335 011454 
3034 011456 
3035 

3036 011460 
3037 011464 
3038 011466 
3039 011472 
3040 011474 
3041 

3042 011476 
30435 011476 
3044 011502 
3045 011506 
3046 011510 
3047 

3048 011514 
3049 011520 
3050 011522 
3051 011526 
3052 

3053 011530 
3054 011532 
3055 

3056 

3057 011534 
3058 011534 
3059 011540 
3060 011542 
3061 011544 
3062 011546 
3065 011550 
3064 

3065 

3066 

3067 011550 
3068 011556 
3069 011562 
307C 011566 
3071 011570 
3072 011574 
3075 

3074 011576 
3075 011602 
3076 011606 
3077 

3078 011610 
3079 011614 
3080 011616 
3081 

53082 011622 
5083 011626 
3084 011630 
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040000 


000020 
040000 


004730 
000020 


005020 
005602 
005056 


605706 


000014 
011610 
005770 


005602 
006024 
004730 
000032 
005020 
005602 
005056 


6 
MACY11 30A(1052) 21=DEC-78 13:20 PAGE 67 
START OF TESTS 


001126 


1$: 


2$: 


3$: 
4$: 


5$: 


99$: 


100$: 
;REWIND 
A: 


99$: 
100$: 


TSTB 
6M 
BIT 


HLT 
SCOPE 
DRIVE 


2" 
#ERR,(R1) 
99$ 

1$ 

A#SDWN, (R1) 
#ERR, (R1) 
99$ 

2$ 


PC ,TIMON 
ASDWN, (R1) 
TIMER(R3) 
PC ,WAITRDY 
99$ 

PC, TIMOK 
100$ 


PC,.REWIND 
99$ 

100$ 

A 


’ 


;BRANCH WHEN 
sREADY SETS 


; TURN TIMER ON 
;BRANCH WHEN SWDN = 0 


;GO TO TIMER & RETURN VIA R2 
sWAIT FOR READY 


sREWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


; TEST 014-TURN AROUND DELAY (FORWARD-REVERSE) 
THIS TEST MEASURES TIME FROM 'GO'=1 (READ REVERSE) TO ‘ACCL'=0 
T1014: MOVB a4 TS TNUM 


TSTO14 


23: 


3$: 


#2$.R2 

PC WRITE 
(R 

PC, WAITRDY 
99$ 

PC ,REVRD 
PC TIMON 
(R5) 
TC(RS) 

3$ 
TIMER(R3) 
PC WA TRDY 
ge 


PC. TIMOK 


;SET RETURN PC FROM TIMER 
;WRITE A RECORD 
sSET *GO° BIT 


;READ THE RECORD (REVERSE) 

; TURN TIMER ON 

;SET ‘GO’ BIT 

sWAIT FOR ‘ACCL* = 0 

:GO TO TIMER & RETURN VIA R2 


SEQ 0067 
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CZ7TEEB.P11 17=NOV=78 10:1 START OF TESTS SEQ 0068 
3085 011634 000401 BR 100$ 
3087 011636 104400 99$: HLT 
3088 011640 104000 100$: SCOPE 
3090 ;TEST 015~ TURN AROUND DELAY (REVERSE-FORWARD) 
3091 -THIS TEST MEASURES TIME FROM 'GO'=1 (READ) TO "ACCL'=0. 
3092 011642 112737 900915 001126 TSTO15: MOVB #15, a4TSTNUM 
3093 011650 012702 011 MOV #2$,R2 :SET RETURN PC FROM TIMER 
3094 011654 004737 805978 JSR PC WRITE ;WRITE A RECORD 
3095 011660 005215 INC (R5) :SET 'GO' BIT 
3096 011662 004737 005602 JSR PC ,WAITRDY “WAIT FOR READY 
3097 011666 102426 BVS 99$ 
3098 011670 004737 006024 JSR PC .REVRD :READ A RECORD IN THE 
3099 011674 005215 INC (R5) :SET 'GO' BIT 
3101 011676 004737 005602 JSR PC WAITRDY 
3102 011702 102420 BVS 99$ 
3104 011704 004737 006006 1$: JSR PC READ :READ RECORD FORWARD 
3105 011710 004737 004730 JSR PC. TIMON = TURN TIMER ON 
3106 011714 005215 INC (R5) =SET 'GO' BIT 
3108 011716 005765 000032 2$: TST TC(RS) :WAIT FOR ‘ACCL' = 0 
3109 011722 100002 BPL 
3110 011724 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3112 011730 004737 005602 3$: JSR PC ,WAITRDY 
3113 011734 102403 BVS 99$ 
3114 011736 004737 005056 JSR PC, TIMOK 
3115 011742 000401 BR 100$ 
3117 011744 104400 99$: HLT 
3118 011746 104000 100$: SCOPE 
3120 TEST 016-GAP SIZE (STOP HALF) 
3121 011750 112737 000016 001126 TSTO16: #16, a4TSTNUM 
3122 011756 012702 012014 MOV #1$.R2 :SET RETURN PC FROM TIMER 
3123 011762 004737 005770 JSR PC WRITE “WRITE A RECORD 
3124 011766 005215 INC (R5) :SET ‘GO’ BIT 
3125 011770 004737 005602 JSR PC, WAI TRDY 
3126 011774 102421 BVS 99$ 
3127 011776 004737 005310 JSR PC DELAY ;DELAY 350 MS 
3128 012002 004737 006024 JSR PC ,REVRD *READ REVERS RECORD 
3129 012006 004737 004730 JSR PC. TIMON = TURN TIMER ON 
3130 012012 005215 INC (R5) *SET 'GO' BIT 
3132 012014 005710 1$: TST (RO) :WAIT FOR FRAME COUNT > 0 
3133 012016 001002 BNE 2$ 
3134 012020 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3136 012024 004737 005602 2$: JSR PC ,WAITRDY :WAIT FOR READY BIT TO SET 
3137 012030 102403 BVS 99$ 
3138 012032 004737 005056 JSR PC. TIMOK =CHECK TIME 
3139 012036 000401 BR 104§ 
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CZ7TEEB.P11 17=NOV=78 10:11 START OF TESTS SEQ 0069 
3141 012040 104400 :, 99$: HLT 
3142 012042 104000 100$: SCOPE 
3144 - TEST 017-GAP SIZE (START HALF) 
3145 012044 112737 000017 001126 TSTO17: MOVB 17, a4TSTNUM 
3146 012052 012702 012124 MOV #1$.R2 :SET RETURN PC FROM TIMER 
3147 012056 004737 005770 JSR PC WRITE ‘WRITE A RECORD 
3148 012062 005215 INC (R :SET ‘GO’ BIT 
3149 012064 004737 005602 JSR PC ,WAITRDY “WAIT FOR READY 
3150 012070 102427 BVS 99$ 
3151 012072 004737 006024 JSR PC .REVRD :READ REVERSE THE RECORD 
3152 012076 005215 INC (R5) -SET 'GO' BIT 
3153 012100 004737 005602 JSR PC ,WAITRDY “WAIT FOR READY 
3154 012104 102621 BVS 99$ -BRANCH ON ERROR 
3155 012106 005310 JSR PC DELAY :WAIT FOR TAPE MOTION TO STOP 
3156 012112 004737 006006 JSR PC READ =READ RECORD 
3157 012116 004737 004730 JSR PC. TIMON = TURN TIMER ON 
3138 012122 005215 INC (R5) “SET 'GO' BIT 
3160 012124 005710 1$: TST (RO) :WAIT FOR FRAME COUNT > 0 
3161 012126 001002 BNE 2$ 
3162 012130 000163 005020 JMP TIMER(R3) :GC TO TIMER & RETURN VIA R2 
3164 012134 737 005602 2$: JSR PC, WAITRDY :WAIT FOR READY 
3165 012140 102403 BVS 99$ 
3166 012142 737 005056 JSR PC, TIMOK = CHECK TIME 
3167 012146 01 BR 100$ 
3169 012150 104400 99$: HLT 
3170 012152 104000 100$: SCOPE 
3172 i TES ST 020- GAP SIZE CINTERRE CORD) 
3173 THIS TEST MEASURE S TIME FROM 'GO'=1 TO 'FC REG’ >0. 
3174 012154 112737 000020 001126 TSTO020: #20, a4TSTNUM 
3175 012162 012702 012244 mv #1$,R2 :SET RETURN PC FROM TIMER 
3176 012166 004737 005770 JSR PC WRITE “WRITE A RECORD 
3177. 012172 005215 INC (R5) =SET ‘GO’ BIT 
3178 012174 737 005602 JSR PC ,WAITRDY -WAIT FOR READY 
3179 012200 102433 BVS 99$ 
3180 012202 004737 005770 JSR PC WRITE :WRITE SECOND RECORD 
3181 012206 005215 INC (R5) :SET ‘GO’ BIT 
3182 012210 004737 005602 JSR PC, WAITRDY “WAIT FOR READY 
3183 012214 102425 BVS 99 
3184 012216 004737 006024 JSR PC .REVRD :READ REVERSE SECOND RECORD 
3185 012222 005215 INC «R5) *SET ‘GO’ BIT 
3186 012224 004737 005602 JSR PC WAITRDY “WAIT FOR READY 
3187 012230 102417 BVS 99$ 
3188 012232 004737 006024 JSR PC ,REVRD = READ REVERSE FIRST RECORD 
3189 012236 004737 004730 JSR PC’ TIMON -TURN TIMER ON 
3190 012242 005215 INC (R5) “SET 'GO' BIT 
3192 012244 005710 1$: TST (RO) :WAIT FOR FRAME COUNT > 0 
3193 012246 001002 BNE 2$ 
3194 012250 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3196 012254 004737 005602 2$: JSR PC WAITRDY -WwAIT FOR READY 
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001120 


99$: 
100$: 


BVS 
JSR 
BR 


HLT 


SCOPE 
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99$ 


PC, TIMOK 
100$ 


; TEST 021- GAP CONSISTANCY 
: THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘FC REG' > 0. 

:THE TEST REWINDS THE TAPE,WRITES 17 RECORDS WITH A DELAY FROM 1- ny MS 
:BETWEEN EACH WRITE COMMAND. CORDS EN 


AFTER ‘ 
READ REVERSES 16 yt ns? AT THIS POINT THE TAPE IS 
A READ COMMAND 


; PROGRAM 
THe 1 THE FIRST AND SECOND R 


I 
THE 16 RECORDS WITH THE TIME BETEWEN GO=1 TO FC > 0 STORED 


TI 
; AD. ER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 
sAGED AND PLACED IN THE ‘ATIMTBL' (SY SCOPE). 


sPEATED FOR EACH ITERATION. 


TSTO21: MOVB 


1$: 


et: 


3$: 


4$: 


#21 .@#TSTNUM 
PC, .REWIND 
99$ 

DELTIM 
#17..R 

PC WRITE 
(R5) 

PC ,WAITRDY 
99$ 


PC ,DELA 
GAPDEL , “DELTIM 


1$ 


#17.,R0 
PC REVRD 


(R 
PC. WAITRDY 


PC ,WAITRDY 
993 

PC READ 

PC. TIMON 
(R5) 
FC(RS) 


TIMER(R3) 


S_ EXECUTED TO READ 
D_IN *GAPTBL' 
ME IS VER- 


THE ABOVE PROCESS IS RE- 


;SET RETURN PC FROM TIMER 
;REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
;CLEAR VARIABLE DELAY TIME 
iSET # OF RECORDS TO WRITE 

WRITE 17. RECORDS 
"SET "GO* BIT 
:WAIT FOR READY 


;DELAY BEFORE radr NEXT REC. 


:ADD 1MS TO DELAY TIME 
; DECREMENT RECORDS WRITTEN COUNT 


;SET # OF RECS. TO REVERSE READ 
; REVERSE READ 17. RECORDS 

;SET ‘GO’ BIT 

:WAIT FOR READY 


;DECREMENT RECORD COUNT 


;SET # OF RECORDS TO READ 

:SET PTR TO GAP TABLE FOR TEST 
:READ A RECORD 

;SET *GO* BIT 


;WAIT FOR READY 

;READ NEXT RECORD 

; TURN TIMER ON 

:SET ‘GO’ BIT 

;WAIT FOR FRAME COUNT > 0 
:GO TO TIMER & RETURN VIA R2 


SEQ 0070 
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C7TEEB.P11 17=NOV-78 10:11 START OF TESTS SEQ 0071 
3253 : 
3254 012452 004737 005602 S$: JSR PC ,WAITRDY :WAIT FOR READY 
3255 012456 102446 BVS 
3256 012460 010421 MOV R4,(R1)+ :STORE TIME IN GAPTBL 
3257 012462 005300 DEC RO “DECREMENT # OF RECORDS READ 
3238 012464 001355 BNE 3$ 
3260 012466 105037 001124 CLRB  af#GAP :SET GAP # 0 
3261 012472 012700 000020 MOV #16. RO 
3262 012476 012701 901060 MOV #GAPTBL .R1 
3264 012502 012104 6$: MOV (R1)+,R4 :GET GAP TICK COUNT 
3265 012504 004737 005166 JSR PC, GAPOK =CHECK TIME 
3266 012510 105237 001124 INCB = @A#GAP : INCREMENT GAP # 

3267 012514 122737 000020 001124 (MPR #16..a4GAP “BRANCH IF ALL GAPS NOT CHECKED 
3268 012522 001367 BNE 6$ 

3270 012524 012700 000020 MOV #16. RO ; SETUP To AVERAGE GAP SIZES 
3271 012530 012701 001060 MOV #GAPTBL .R1 -SET PTR TO TABL 

3272 012534 005002 CLR R2 CL EAR "SUM' REGISTERS 

3273 012536 005003 CLR R3 

3274 012540 062102 7$: ADD (R1)+,R2 :ADD ALL GAP SIZES TOGETHER 
3275 012542 005503 ADC RZ 

3276 012544 005300 DEC RO 

3277 012546 001374 BNE 7$ 

3278 012550 012700 000004 MOV #4 RO :NOW DIVIDE BY 16. 

3279 012554 006203 8S: ASR R3 “BY SHIFTING 4 PLACES RIGHT 
3280 012556 006002 ROR R2 

3281 012560 0053 DEC RO 

3282 012562 001374 BNE 8$ 

3283 012564 010204 MOV R2,R4 :MOVE AVERAGED TIMES TO R4 
3284 012566 004737 005056 JSR PC’ TIMOK “CHECK AVERAGED TIMES 

3285 012572 000401 BR 100$ 

3287 012574 104400 99$: HLT 

3288 012576 104000 190$: SCOPE 

3289 

3290 

3291 

3292 : TEST 022=DATA TIME (800BP]1) 

3293 * THIS TEST MEASURE S THE TIME FROM FC REG >=6400 TO 'RDY' = 1. 

3294 012600 112737 000022 001126 TST022: #022, a4TSTNUM 

3295 012606 012702 012666 MOV #3$,R2 :SET RETURN PC FROM TIMER 
3296 012612 004737 005706 JSR PC, .REWIND “REWIND SLAVE 

3297 012616 102442 BVS 99$ “BRANCH IF ERROR ON REWIND 
3298 012620 052765 001700 000032 BIS #NORM11, TC (R5) -SET 800 BP] 

3299 012626 004337 006124 JSR R3. TMCMD “WRITE 3200. WORD RECORD 
3300 012632 016650 .WORD  wWIBUF 

3301 012634 171600 -WORD  =3c00 

3302 012636 163400 .WORD 6400 

3303 012640 0 -WORD wWFwD 

3304 012642 005215 INC (R5) :SET 'GO' BIT 

3306 012644 022710 163400 1$: CMP #~6400., (RO) :WAIT FOR WRITING TO START 
3307 012650 001004 BNE 2 

3308 012652 032711 040000 BIT #ERR, (R1) :MONITOR ERROR BIT 
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TESTS 


BNE 99$ 


——EE - = ‘ 
—_— —— eee 


2$: 
JSR PC, TIMON ; TURN TIMER ON 
3$: a a “BRANCH WHEN READY SETS 
JMP TIMER(R3S) 3;GO TO TIMER & RETURN VIA R2 
4$ MOV #3,R0 >SET SHIFT COUNT 
$ ASR R4 
DEC RO 
BNE 5$ 
JSR PC ,WAITRDY 
BVS 99$ 
JSR PC, TIMOK sCHECK TIME 
BR 100$ 
99$: HLT 
100$: SCOPE 


;TEST 023-DATA TIME (16008P1) 
THIS TEST MEASURES THE TIME FROM FC REG >~6400 TO 'RDY' = 1. 
TS1023: MOVE #023, aATSTNUM 


#3$,R2 :SET RETURN PC FROM TIMER 
JSR PC, .REWIND “REWIND SLAVE 
BVS 99$ “BRANCH IF ERROR ON REWIND 


BIC #3700, TC(RS) = CLEAR CURRENT DENSITY 
BIS nee 1660, Tc (RS) -SET 1600 BP 
JSR R3, TMC “WRITE 3200, ‘WORD RECORD 
WORD UTBUF 
"WORD 3200 
WORD  -6400 
WORD  wFWD 
INC (R5) :SET 'GO' BIT 
1$ CMP #6400. , (RO) :BRANCH WHEN WRITING STARTS 
BIT HERR, (R1) :MONITOR ERROR BIT 
BNE 99$ 
BR 1$ 
2S: 
JSR PC, TIMON : TURN TIMER ON 
3$ STB Ri) *BRANCH WHEN READY SETS 
JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
4$: ASR R4 :DIVIDE TIME BY 4 
ASR R4 
JSR PC WAITRDY 
BVS 99$ 
JSR PC_TIMOK =CHECK TIME 
BR 100$ 


99$: HiT 


SEQ 0072 
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3367 
3368 
3369 013060 
3370 013066 
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3376 013112 
3377 013116 
3378 013120 
3379 013126 
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3382 013136 
3383 013140 
3384 013142 
3385 013146 
3386 
3387 013150 
3388 013152 
3389 013154 
3390 
3391 013160 
3392 013164 
3393 013166 
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3396 013174 
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3402 013206 
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3405 013220 
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START OF TESTS 


001126 


001002 


001126 


100$: 


; TEST O24-ERASE 


SCOPE 


sTHIS TEST MEASURES TIME FROM ‘GO'=1 TO ‘RDY'=1. 
: MOVB #24 ,QATSTNUM 


TST024 


1$: 


2$: 


3$: 


99$: 
100$: 


HLT 
SCOPE 


#2$,R2 :SET RETURN PC FROM TIMER 
PC, REWIND :REWIND SLAVE 

99$ “BRANCH IF ERROR ON REWIND 
PC .RHINIT “SET NRZ 

PC WRITE “WRITE A RECORD 

ir ees “SET ‘GO’ BIT 

99$ 

#1$, a4SCPADR 

R3, a4 TMCMD 

9 

0 

ERASE 

PC, TIMON :TURN TIMER ON 

(R5) :SET 'GO' BIT 

(R1) :BRANCH WHEN READY SETS 
TIMER(R3) :GO TO TIMER & RETURN VIA R2 
PC ,wAITRDY 

99$ 

PC, TIMOK 

100$ 


;TEST 025 TAPE MARK 
TEST MEASURES hie Bay "GO"=1 TO ‘'RDY*=1. 


; THIS 
TSTO25 


: MOVB 


#25 ,AATSTNUM 
#) 


“R :SET RETURN PC FROM TIMER 
PC WRITE “WRITE A RECORD 
(R5) “SET ‘GO’ BIT 
PC ,WA] TRDY 
99$ 
R3, a#TMCMD 
0 
WF MK 
PC, TIMON : TURN TIMER ON 
(RS) “SET 'GO’ BIT 
RV) :BRANCH WHEN READY SETS 
TIMER(R3) :GO TO TIMER & RETURN VIA R2 
Po WAITRDY 


99$ 


SEQ 0073 
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17=NOV-78 10:1 START OF TESTS SEQ 0074 
013266 004737 005056 JSR PC. TIMOK 7 
013272 000401 BR 106$ 
013274 104400 99$: HLT 
013276 100$: 
013276 004737 005706 JSR PC, .REWIND :REWIND SLAVE 
913302 102774 BVS 99$ “BRANCH IF ERROR ON REWIND 
013304 104000 SCOPE 
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165464 


001005 


001004 
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TART 
F INI SH: 


1$: 


2$: 


3$: 


END: 


SENDAD : 


HERE : 


1$: 


K 6 
21=DEC-78 13:20 PAGE 75 
TESTS 


BIT #SW10,aSWR 
BNE 2$ 
TST CHNFLG 
BNE 2$ 
MOV #10.,R0 
TYPE , CRLF 
DEC RO 
BNE 1$ 
INCB @4SLVNUM 
INC ASLVPTR 
CMPB #8. ,Q4SLVNUM 
BEQ 3$ 
JMP @FBEGIN 
CLRB @4SLVNUM 
INCB ADR 
CMPB #8. , a@#DRVNUM 
BEQ D 
JMP @FBEGIN 
TSTB @QAUNTF ND 
TYPE ,E.UNIT 

INIT 
INCB @4PSCNT 
TYPE ,.M.EOP 
MOVB @APSCNT ,R2 
JSR PC, TYPOCT 
TYPE ,CRLF 
MOV 42 ,R0 
BEQ HERE 
RESE 
JSR PC, (RO) 
NOP 
NOP 
NOP 
NOP 
TST CHNF LG 
BNE 
BIT #SW06, aSWR 
BEQ 2$ 
JMP AARSTRT 
HAL T 
RESET 
JMP aA INiT 


:DO NOT SPACE PAPER 
;1F USER SELECTED NO OUTPUT 
;OR IF IN CHAIN MODE 


sSET LINE FEED COUNT 


;SET NEXT SLAVE # 

sAND ITS POINTER 

;BRANCH IF LAST SLAVE (7) 
sBEGIN TEST ON NEXT SLAVE 
;SET SLAVE #0 


sAND INCREMENT DRIVE # 
;AND CHECK IF LAST DRIVE 


sBRANCH IF A UNIT WAS FOUND 


; INCREMENT PASS COUNT 


;GET PASSCOUNT 
;AND TYPE IT 


;GET ACT11 RETURN ADDRESS 
;BRANCH IF NOT ACT11 


;BRANCH IF CHAIN MODE 
;BRANCH IF NOT CONTINOUS LOOP 
sRESTART 


ZRESTART 


SEQ 0075 


6 
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C7TEEB.P11 17-NOV-78 10:11 START OF TESTS } SEQ 0076 
3476 :SKEW TAPE TIMING TESTS 
3477 -THE FOLLOWING TESTS REQUIRE A SPECIALLY WRITTEN 800 BPI SKEW TAPE 
3478 013526 012737 913534 001002 SKEWTST:MOV #757026, a4SCPADR :SET SCOPE POINTER 
3480 ;TEST 026- SKEW TAPE SPEED TEST-FORWARD 
3481 “THIS TEST READS 32" OF TAPE (26400.-800. = 25600. FRAMES), THEN 
3482 “DIVIDES TIME BY 32. TO GET TIME TO READ 1'' (800. FRAMES) OF TAPE. 
3483 013534 112737 000026 001126 TST026: MOVB #26 ants! NUM 
3484 013542 012702 013630 MOV #2$.R2 :SET RETURN PC FROM TIMER 
3485 013546 004737 005706 JSR PC, REWIND “REWIND SLAVE 
3486 013552 102445 BVS 99$ “BRANCH IF ERROR ON REWIND 
3487 013554 052765 001700 000032 BIS #NORM11.TC(R5) -SET 800 BPI 
3488 013562 052765 000010 000010 BIS WBAI,CS2(R5) : INAIBLT BUS ADDRESS INCREMENT 
3489 013570 004337 006124 JSR R3, a¢TMCMD READ 32°' OF TAPE-FORWARD 
3%490 013574 016650 .WORD RDBUF 
3491 013576 177777 : “WORD =1. 
3492 013600 063440 0$: “WORD 26400. :FRAME COUNT 
3493 013602 000070 “WORD RDFWD 
3494 013604 005215 INC (R5) :SET 'GO' BIT 
3496 013606 032765 075027 000014 18: BIT #HRDERR ,ER(RS) :BRANCH IF ANY HARD ERROR BIT SETS 
3497 013614 001024 BNE 99 
3498 013616 022710 001440 CMP #800. , (RO) :WAIT FOR FIRST 800 FRAMES 
3499 013622 101371 BH] 1$ -TO BE READ 
3501 013624 004737 004730 JSR PC, TIMON : TURN TIMER ON 
3502 013630 023710 013600 2$: CMP avi0$, (RO) :WAIT FOR READING TO FINISH 
3503 013634 103402 BLO 3$ 
3504 013636 000163 005020 JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3506 013642 012700 000005 3$: MOV #5,RO :DIVIDE TIME BY 32. 
3507 013646 006204 4$: ASR R, 
3508 013650 005300 DEC RO 
3509 013652 001375 : BNE 4$ 
3510 013654 004737 005544 JSR PC RHINIT : INIT DRIVE 
3511 013660 004737 005056 JSR PC’ TIMOK >CHECK TIME 
3512 013664 000401 BR 100$ 
3514 013666 104400 99$: HLT 
3515 013670 104000 100$: SCOPE 
3517 : TEST 027-SKEW TAPE SPEED TEST-REVERSE 
3518 : THIS TEST READS FORWARD 40°' (32000. FRAMES) OF TAPE. THEN READS REVERSE 
3519 732°" (26400.-800. = 25600. FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 
3520 :32. 10 GET TIME TO READ 1°’ (800. FRAMES) OF TAPE. 
3521 013672 112737 000027 001126 TST027: #27, a4TSTNUM 
3522 013700 012702 014036 MOY #3$.R2 :SET RETURN PC FROM TIMER 
3523 013704 004737 005706 JSR - PC, .REWIND “REWIND SLAVE 
3524 013710 102471 BVS 99% “BRANCH IF ERROR ON REWIND 
3525 013712 052765 001700 000032 BIS #NORM11.TC(RS) 
3526 013720 052765 000010 000010 BIS WBAI,.CS2(R5) 
3527 013726 004337 006124 JSR R3, a4 TMCMD :READ FORWARD 32000. FRAMES 
3528 013732 016650 .WORD RDBUF 
3529 013734 177777 “WORD = =1. :WORD COUNT 
3530 013736 076400 10$: “WORD 3-00. “FRAME COUNT 
3531 013740 000070 “WORD  RDFwD “READ FORWARD 


CZTEEBO TMOS-TE16/TU77 «3 
CZTEEB.P11 10:1 


013742 
013744 


006 
014010 
014012 


014014 


01 
014072 
014074 


17-NOV-78 


005215 


032711 
001051 
023710 
101372 


004737 
004737 
052765 
004 337 
016650 
177777 
063440 


000076 
005215 


032765 
001024 
022710 
101371 


075027 
001440 
004730 
014006 
005020 
000005 


005544 
005056 


005 706 


015306 


MACY11 30A(1052) 
START OF 


000010 


000014 


1$: 


11$: 


993: 


100$: 


21-DEC-78 
TESTS 


INC 


(R5) 

MERR, (R1) 
99$ 

a10$, (RO) 
1$ 


PC ,RHINIT 
PC ,DELAY 
#BAI ,CS2(R5) 
R3,a4TMCMD 
RDBUF 
26400. 
RDREV 
(R5) 
AMHRDERR ,ER(R5) 
99 
#800. , (RO) 
2$ 
PC, TIMON 
avil$, (RO) 
ry 
TIMER(R3) 
#5,R0 
R4 
RO 
5$ 
PC ,RHINIT 


PC’ TIMOK 
100% 


PC, ..REWIND 


99$ 


@4F INISH 


M 6 
13:20 PAGE 77 


:SET 'GO" BIT 
:BRANCH IF ERROR BITS SETS 


; INIT pth: 


sWAIT FOR TAPE MOTION TO STOP 
; INH wap Ae BUS OOO ee 
;READ REVERSE 32°' APE 


sREAD BUFFER 

;WORD COUNT 

;FRAME COUNT 

sREAD REVERSE 

;SET ‘GO’ BIT 

sEXIT TEST IF ERROR BIT SETS 


sWAIT FOR FIRST 800 FRAMES 
:TO BE READ 


; TURN TIMER ON 
:WAIT FOR ALL FRAMES TO BE READ 


:GO TO TIMER & RETURN VIA R2 
:DIVIDE TIME BY $?. 


;REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


SEQ 0077 


CZTEEBO TMO3S-TE16/TU77 DFT 
CZTEEB.P11 


REARS 


NOOO NOUS wre 


RR 
NS 


5621 


OQooooo°ooo00°o 
ee ee cee ee cee eed ee eed wd eed 
Pa? a ae ye et et et ee ee oe 
aad vad ach td cn et cet eet ce ced 

sie eP » MN se 
SHIS RSE RH R= 


: > 
™m 
— 
Nm 


014220 


76 


PMMA I 


17-NOV-78 10:11 


046101 


N 6 
MACY11 30A(1052) 21=-DEC-78 13:20 PAGE 78 
PROGRAM MESSAGES . 


0 


* = 
Ss 


OrunWWUIA 
We & ho SN OO 


05 


020040 
020105 


PROGRAM MESSAGES 


. SBTTL 
OPERATOR INSTRUCTIONS 


M.NAM: 


I.REG: 


I] .DRVS: 


I.SLVS: 


I.DRV: 


ASCII 


ASCIZ 


-ASCI2Z 


ASCIZ 


ASCIZ 


} 


-ASCI2Z 


ASCIZ 


ASCII 


ASCIZ 


<CR><LF >" TMO5-TE16/TU77 DRIVE FUNCTION TIMER (CZ2TEEBO)'; ++B 


<(R><LF>"TYPE <CR> TO TERMINATE RESPONSE & *C TO RESTART' 


<CR><LF>"*END OF PASS ' 


<CR><LF>*HARDWARE SWR IN USE*<CR><LF> 
<CR><LF>*REMOVE TMDP FROM TE16/TU77 TO BE TESTED’ 
<CR><LF>"TYPE FIRST ADDRESS OF CONTROLLER ' 
ZTYPE TMO5 DRIVE #°S TO BE TESTED: 


ALL % 


"FOR TMO3 DRIVE ° 


%Z0- TYPE SLAVE #'S TO BE TESTED: ALL % 


SEQ 0078 
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36335 014574 
3634 


SEQ 0079 


I.SPD: .ASCIZ ‘SPEED TESTS? (YES/NO): NO ' 


—WOr 
NOWMNONOWIWO 


04 M.EOT: .ASCIZ <CR><LF>"END OF TAPE'<CR><LF> 


3645 sERROR MESSAGES 
1 E.TRP4: .ASCIZ 

3645 Ne te 042520 020104 047524 

3647 014667 116 020117 Reatts E.NCON: .ASCIZ "NO CONTROLLER AT ADDRESS SPECIFIED'<CR><LF> 


<CR><LF>* TRAPPED TO 4' . 


-NDRV: .ASCIZ '"TMOS DRIVE ' 


eNSLV: .ASCII ‘DRIVE ° 
ASCII 'O SLAVE ' 


NAVA: .ASCIZ ‘OQ NOT AVAILABLE FOR TEST'<CR><LF> 


042526 000040 
3656 014750 051104 053111 020105 
3657 Barat 020060 046123 053101 


3659 014766 020060 047516 020124 
3660 450 


mmm mm 
4 
> °) 
<= 


015021 1 020117 046524 E.UNIT: .ASCIZ ‘NO TMO3-TE16/TU77 UNIT FOUND TO TEST*<CR><LF> 


015056 047524 052040 051505 
015064 006524 
2106 0424640 E.SFT: .ASCIZ ‘SOFT ERROR (DATA) *<CR><LF> 
1117 024040 

0524 006451 
00001 
042524 052123 021440 


04204 041511 
020105 051105 047522 
0065 


012 
103 Hea 053411 eASCIZ ‘'CS1°<HT>'WC'<HT>'BA'<HT>'FC'<HT>'CS2'<HT>'DS'<HT>'ER'<HT>'TC'<CR><LF> 


m 
<= 
CU 
Pe) 


eASCIZ ‘TEST # ' 
: -ASCII * DEVICE ERROR'<CR><LF> 


SAONRNEWR 
=) 
Ww 
W 
—s 
© 
Ww 
rm 
P 
_U 
> ©] 
— 


anf aad anf end anh aad cad ened ant end etd eed come 
Sve SMRRAA 


000 
020124 E.HDR2: .ASCIZ ' OUT OF RANGE ERROR'<CR><LF> 


PAA AAA IAAI IAT 
NN 
RAN 


MONMINYS 


& 
OOOOCOOOCQOCOOSCOOooo 


N— 
On 
© 
VW 


ZTEEBO TMOS-TE16/TU77 DFT 
CZTEEB.P11 


015225 


015320 


015325 
015330 


KNSIERVESSA A 


YW WWI 
RERSS 
& ™ 


17-NOV~-78 


SRERERSE 


ovw— 
=O WWM fw 


10:11 


051440 
021440 
020040 
030505 
033525 


051105 


043516 
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PROGRAM MESSAGES 


24 
042040 
021440 


040514 
040 
000 

020066 

020067 


E.TIMOV: 


E. TIMEX: 


. 


GAP: 


ASCIZ 


SEQ 0080 
-ASCIZ <CR><LF>"TIMER OVERFLOWED'<CR><LF> 


ASCIZ <CR><LF>*TIME EXPIRED WAITING FOR RDY'<CR><LF> 


" GAP #' 


;TIME DOCUMENT LINES 


L.HDR1: 


Po ae” ee ee ee 


-HDR2: 


-DRV: 


~SLV: 
.TE16: 


.TU77: 
SER: 
-HDR3: 


RNG: 


eASCIZ 


ASCII 


ASCII 


-ASCIZ 
ASCIZ 


eASCIZ 
ASCIZ 
ASCII 
ASCIZ 


ASCIZ 


<KCRO<LF > © te te te te ie He He eH He TH TEER E EEE 


"* TMOS DRIVE FUNCTION TIMES= DRIVE # ' 


"0 SLAVE # ' 


"TE16 ° 

“Wer * 

"SERIAL #' } 

' "<CR><LF>"® *XCR><LF> 

"* FUNCTION’ <HT><HT>' TIME (SPECIFICATION) *<HT>" TIME (ACTUAL) '<CR><LF> 


"RANGE =<" 


CZTEEBO TMOS-TE16/TU77 DFT 
CZTEEB.P11 


015646 
015654 


041501 
000075 


025052 
4524 


17-NOV-78 10:11 


052524 


MOMMA 
NN NMR NS 
ed ed ed ed LF} 
te he pe he tert pg AY 
WN NWN WN NO IPD 
RAS 
Wi 
Orn 
=f OR SS fy oS oS 


© © © 
S RRF LESER LLSEL 
N&— Or 
=_— MMAVMIVMIY oe 
MM MPOMPIM INN 
WO NWOOfSNWMSPfon 
2 SF 


+ 


MPOMIMN NY 
MENENO 


ARAR VRRARARA RARAGR FR 
=—=M—M OM 
oo—-O& 


&#B: 
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046107 


OOO 
mus 
out 


oOoooeo oo 
tt Oe e: WW 
mrnN —?r 


® & 
on NPP 


S8 
Nm 
Oo NoOo--O WJ 


MM 
a 


RES teueS 
NO 
MO—M Mo—Mrlu——NO 
MANY NOS UIP ALO 


ODOO 
HRW 


L.ACT: 


A 


EST DE 
. T000: 


. 1001: 
.-T002: 
.T003: 


. 1004: 


. 1005: 
. 1006: 


. 1007: 
.7010: 


.1011: 


1012: 
1013: 


.1014: 


.7015: 


eASCIZ 


SCRIPTOR HEADERS 
: .ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


-ASCIZ 


ASCIZ 


ASCIZ 


-ASC1Z 


-ASCiZ 


ASCIZ 


ASCIZ 


ASCIZ 


eASCIZ 


"ACTUAL=' 


"** INITIALIZATION ERROR’ 


WRITE FROM BOT'<HT> 


WRITE START'<HT><HT> 


WRITE SHUTDOWN’ <HT> 


WRITE SETTLEDOWN'<HT> 


READ 


READ 


READ 


READ 


READ 


READ 


READ 


TURN 


TURN 


FROM BOT '<HT><HT> 


START '<HT><HT> 


SHUTDOWN‘ <HT><HT> 


SETTLEDOWN* <HT> 


REV START‘'<HT> 


REV SHUTDOWN ' <HT> 


REV SETTLEDOWN'<HT> 


AROUND DELAY F=-R*<HT> 


AROUND DELAY R-F *<HT> 


SEQ 0081 


CZTEEBO TMO5-TE16/TU77 DFT 


CZTEEB.P11 
3801 016304 
3802 016312 
3803 016320 
3804 016326 
3805 016332 
3806 016340 
3807 016346 
3808 016354 
3809 016361 
3810 016366 
3811 016374 
3812 016402 
3813 016410 
3814 016411 
3815 016416 
3816 016424 
3817 016432 
3818 016434 
3819 016442 
3820 016450 
3821 016456 
3822 016460 
3823 016466 
3824 016474 
3825 016502 
3826 016505 
3827 016512 
3828 016520 
3829 016526 
3830 016527 
3831 016534 
3832 016542 
38335 016550 
3834 016552 
3835 016560 
3836 016566 
3837 016574 
3838 016602 
3839 016610 
3840 
3841 016616 
3842 016625 
3845 016630 
3844 016632 
3845 016640 
3846 016642 
3847 
3848 
3849 
3850 016650 
3851 


051055 
seg tt 


17-NOV-78 10:11 


ARROW 
MNO 
Wi UI 


NMWOoO—- 
— IO VRUSRNVYQ= 


RRR ARGR 
Om =u R 


20 
053105 


043536 
051412 


042516 
006477 
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044522 
046111 
045522 


000 
051127 
036527 
000012 


A.T016: 


A.TO17: 


A.T020: 


A.T021: 


A.T022: 


A.T023: 


A.T024: 


ga 7 mm 
* ‘ * « 
4) 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


-ASCIZ 


ASCIZ 


ASCIZ 


"* GAP SIZE=-STOP HALF '<HT> 


"* GAP SIZE-START HALF '<HT> 


"* GAP SIZE-INTERRECORD '<HT> 


"* GAP CONSISTANCY '<HT> 


"* DATA TIME-800BPI '<HT> 


"* DATA TIME-1600BP] '<HT> 


"* ERASE GAP TIME'<HT> 


"* WRITE FILE MARK'<HT> 


"* TAPE SPEED-FWwWD'<HT> 


"* TAPE SPEED-REV'<HT> 


<CR><LF>‘*G' 
<CR><LF >* SWR=' 


* WNEW= ° 
eASCIZ <CR><LF>'?'"<CR><LF> 


" 128, 


SEQ 0082 


CZTEEBO eat Ph ind Bed 


CZTEEB.P11 10:11 
A 011534 30574 
ACCL 100000 12084 
ANGTAB 001420 13134 
AS 000016 11064 
ASFLG 001135 12924 
ATA 1 11754 
ATIME 001016 12774 
ATIMTB 001020 12734 
A.TOOO 015656 1484 
A.T001 015706 1485 
A.TO02 015730 1486 
A.T003 015750 1487 
-1004 015772 1488 
A.T005 016016 1489 
A.T006 016040 1490 
A.T007 016057 1491 
A.T010 016101 1492 
A.T011 016124 1493 
A.TO12 016146 1494 
A.T0153 016173 1495 
A.T014 016222 1496 
A.T015 0162535 1497 
A.T016 6304 — 1498 
A.T017 016332 1499 
A.T020 016361 1500 
A.T021 016411 1501 
A.T022 016434 1502 
A.T023 016460 1505 
A.T024 016505 1504 
A.T025 016527 1505 
A.T026 016552 1506 
A.T027 016574 1507 
A16é = 000400 11314 
Al7 = 001000 11324 
BA = 000004 11014 
BAI = 000010 11474 
BEGIN 007420 26164 
LL 001411 13094 
BKSLSH 001405 13074 
T= 900002 11624 
I 000000 12044 
BP1I556= 000400 12054 
BP1800= 001000 12064 
BPTVEC= 000014 10834 
CDM11 = 000320 12034 
CHKDRV 006714 2485 
CHKSLV 007224 2535 
CHNFLG 006372 2429H 
CH7 = 010000 11984 
CLR = 000040 11494 
CNTRLA= 000001 12224 
CNTRLC= 000003 12234 
CNTRLG= 000007 12244 
CNTRLO= 000017 12284 
CNTRLU= 000025 12294 
CNVDEC 003234 16944 


MACY11 30A(1052) 


1781 
2646 
1783 
2022* 


3526 
$449 


25004 
25694 
2442 


21-DEC-78 


2648* 
1847* 


3543 


2470 


2022 


2649 


| 


2115* 


3432 


a. 
13:20 PAGE 84 
CROSS REFERENCE TABLE == USER SYMBOLS 


2119 


3468 


2121 


2153* 


2157 


2159 


SEQ 0083 
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CZTEEB.P11 17=NOV=-78 10:1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0084 
CNVOCT 003126 16544 
CNVTAD 003564 1547 17 2452 
CNVTD 003246 1695 17024 
CNVTO 3 003140 1655 16634 
CR = 15 12274 1306 1545 1802 1887 2450 2477 2488 2546 2557 2655 3579 3587 
3596 3599 3603 3610 3639 3644 3647 3659 3664 3671 3677 3680 3685 
3689 3693 3703 3732 3734 3841 3842 3846 
CRLF 001402 13 1757 1788 1879 1891 1945 1948 1971 2725 3435 3459 
CSITM = 002000 11864 
(Si = 10994 
CS2. = 10 11034 2238% 2249% 2259% 2260* 3488%* 3526*  3541* 
DASH 001413 13104 1750 1778 
= 22 11074 
DCONST 003342 1707 1711 1714 17244 
DELAY 005310 2008 2172# 2361 2971 3127 3155 3540 
DELAYV 005 21854 3226 
DELTIM 001120 12814 2185 2192 3220" 3227* 
001140 12954 1678 1712 2513 2540 2595 2596 2731 2732 
DIVIDE 005376 2113 2151 22104 
DLT =1 11594 
DPR = 0004 11694 
DRIVES 006550 24644 2519 
DRVAVA 005466 22384 2508 
D 001004 12714 2238 2249 2260 2507* 2539* 2589* 2610* 2616 2642* 2729 3446* 3447 
DRVTBL 001162 15034 2465 2480 2495* 2501 2516* 2529 2572 2623 
DRY = 000200 11684 
DRYCLR= 000010 11194 
DS = 000012 11044 2013 2270 2276 2286 2304 2306 2310 2697 2950 
DT = 000026 11094 2239 e251 2672 
DTE = 010000 11884 1191 
DVA = 004000 11344 
DVO = 000000 11394 
DV1 = 000001 11404 
DV2 = 000002 11414 
DV3 = 000003 11424 
DV4 = 000004 114354 
DVS = 000005 11444 
DV6 = 000006 11454 
DV7 = 000007 11464 
EC 001407 13084  1885* 1889 
EMTVEC= 30 10864 
013410 2630 3448 34514 
ENDTBL 002364 14814 2668 
= 002000 11704 2276 
ER = 000014 11054 1950 3496 3549 
RASE = 000024 11214 3383 
RFLG 001127 12864 1931* 2010* 2018 2464* 2515* 2518 2522e 2598" 2602 
ERR 04 aye <4 94 2306 2803 2829 2835 2908 2938 2944 5001 5032 3038 3508 
ERRTRP 004250 19234 2462 2604 
ERRVE C= 1079 2462+ 2604* 
E.DRV 014756 2595* 36574 
~GAP 015313 1785 36994 
E.HDR 015114 1934 2717 36754 
E.HDR1 015124 1961 36774 
E.HDR2 015177 1941 56854 
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CZTEEB.P11 17-NOV=78 10:11 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0085 
E.NAVA 014766 2513*% 2514 2596* 36594 
E.NCON 014667 460 36474 
E.NDRV 0147 2512 36544 
E.NSLV 014750 2597 36564 
E.SFT 015070 1958 36714 
E.TIME 015252 2274 36934 
E.TIMO 015225 2081 36894 
E.TRP4 014650 36444 
E.UNIT 015021 3453 36644 
FC = 11024 2015 2347% 2357% 2373% 2695 3250 
FCE = 001 11854 # 1191 
FINISH 013306 34304 3573 
= 000020 11814 #1191 
FPEVEC= 000244 10924 
FRMCNT= 177400 12194 2322 2332 2342 2906 2999 
FWOSPC 006042 23474 
001124 12834 1772 1786 2154 3260*  3266* 3267 
GAPDEL 001014 12764 2675* 2684* 3227 
5166 21374 3265 
GAP TBL pone iftee 3240 3262 3271 
GTIMTB 002264 14654 1776 1779 2157 2159 
GTSWR 002526 15374 1918 2662 
HE RE 13472 3461 34674 
HLT = 104400 12134 2082 2123 2161 2745 2772 2792 2818 2851 2873 2895 2924 2959 
2985 3016 3053 3061 3087 3117 3141 3169 3201 3287 3327 3364 3396 
3424 3514 3567 
HRDERR= 075027 11914 3496 3549 F 
= 000011 12254 1313 3680 3734 3753 2756 3759 3762 3766 3769 3772 3776 3780 
Hae 3787 3791 3796 3801 3805 3809 3814 3818 3822 3826 3830 3834 
IDB = 000010 11644 
IE = 000100 11294 
ILF = 000001 11774 1191 
ILR = 000002 11784 1197 
I 001272 13054 1545 1798 1865 2413* 2450 24764 2543 2654 
INCVAE= 0001 11824 
N 006274 1218 1260 1884 1907 24124 2461 3454 3475 
ICTVEC= 000020 10844 
= 000100 11504 
ITCNT 001125 12844 1826 2020 2023* 2028 2036* 2699 
I.DRV 0145 2540% 36274 
I.DRVS 014441 2472 36174 
I.REG 014374 2445 36104 
I.REM 014322 2439 36034 
I.SLVS 014511 2541 36244 
I.SPD 014575 2652 36344 
LF = 000012 12264 1306 3579 3587 3596 3599 3603 3610 3639 3644 3647 3659 3664 
3671 3677 3680 3685 3089 3693 3703 3732 3734 3841 3842 3846 
L.ACT 015646 754 1782 37454 
L.CNTG 016616 38414 
L.DRV 015505 27351* 37234 
L.HDR1 015323 2728 37034 
L.HDR2 015440 2733 37164 
L.HDR5 0155517 2741 37324 
L.NEW 016632 1543 38444 


CZTEEBO adel Bll 


CZTEEB.P11 
L.QUES 016642 
ZRNG 015636 
LISER 015537 
L:Stv 015517 
L°SWR 016623 
L:TE16 015523 
L:Tu77 015531 
MCPE = 020000 
= 000400 
MMVEC = 000250 
MOL = 010000 
MR = 000024 
MXF = 001000 
M.EOP 014253 
M-EOT 014630 
M-HSWR 014272 
M.NAM 014112 
NAMPTR 2564 
NED = 010000 
NEF = 004000 
NEM = 004000 
NOP = 
NORM11= 001700 
NSG = 
OCTALO 001122 
ODIGIT 001152 
OPI = 02 
OR = 000200 
OSC = 000100 
OSCTIM 001012 
TBUF= 00627 
QUTGAP 00845 
OUTSPC 003356 
PARVEC= 000114 
PAT = 000020 
PEFLRC= 000200 
S = 000040 
PE1600= 002300 
PFVEC = 000024 
PGE = 002000 
PIP = 020000 
PIRQ = 177772 
PIRVEC= 000240 
PRGFLG 001131 
PSCNT 0017 
PSEL = 002000 
PSW = (177776 
PUBLIS 003652 
RDBUF = 016650 
RDFWD = 70 
RDREV = 76 
RDSW 002634 
RDY 200 
READ 
RESVEC= 000010 
REVRD 006024 


Mo? ASAD SP SB SS SS 


om 


NM —NWe=- 3] ss SS — FY 


MN — — WP NS SMS HN OM LH eS eS 


=—Mrooo—-—-ONn-—-—-Own 
Bo S SS AEA Re 
I~ 
22 


& 
SPeCeeya lard 


1775 
37504 


37434 


2053 


3537 


2479 
2427* 


2058 


35794 


3487 
2453 
1705 


2058 
2674* 


2072 


3525 
1719 


2072 
2683* 


2933 
5074 
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2087 


2381 2408 


2087 


2548* 2554 2595 


38484 


3104 3156 3241 3246 
$098 3128 $151 3184 3188 


3232 


SEQ 0086 
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CZTEEB.P11 17-NOV-78 10:11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0087 
RHINIT 005544 2009 2241 22598 2297 2667 3373 3510 3539 3563 
RMR = 000004 11798 81191 
RSTRT 007372 1262 26094 3472 
RWD = 000006 11184 2302 
RWDOFF= 000002 11174 
SC = 100000 11374 
SCOPE = 104000 12144 2773 2793 2819 2852 2874 2896 2925 2960 2986 3017 3054 3088 
3118 3142 3170 3202 3288 3328 365 3397 3428 3515 3571 
SCPADR 001002 12704 <c007* 2011 2032* 2083 2724* 2747 3378% 3478« 
= 000020 11654 2810 2833 2842 2915 2942 2950 3007 3036 3044 
SKEWFL 001130 12874 2651* 2659* 2708 2742 
SKEWTS 013526 2744 34784 
SLA = 11614 
SLAVES 007014 25224 2603 
SLR = 177774 10704 
SLVAVA 005514 22494 2591 
001005 12724 2250 2262 2590* 2611* 2617 2645* 2750 3440* 3442 3445* 
SLVPTR 001006 12734 =—2612* 2618 2644* 3441* 
SLVTBL 001172 13044 2523 2528 2549 2571 2612 
= 00003 11104 2380 2390 2395 2405 
006144 23804 2740 
SPACE 001416 13124 2448 
SPACE2 001415 13114 1966 
= 000030 11224 2348 
SPCREV= 000032 11234 2358 
SPR = 002000 11974 2251 
SSC _= 000100 11674 
STIMTB 002124 14344 1748 1751 2119 2121 2669 
STKPTR= 12654 2412 | 
STTBL 002124 14334 2668 
001000 12694 1537 1541 1548* 1911 1913* 1917* 1932 1973 1976 2000 2002 2026 
2030 2033 2162 2418 2422* 2433% 2660 2714 2726 3430 3470 
SWREG 000176 12574 1537 1911 1917 2422 2435 2660 
SWO6 = 100 10074 3470 
SWO7 = 000200 10064 
SWwO8 = 00 10054 
SWO9 = 001000 10044 1973 
SW10 = 002000 10034 2033 2162 2726 3430 
SWw11 = 004000 10024 2026 
SW13 = 020000 10014 1932 
SW14 = 040000 10004 2000 
SW15 = 100000 999 
TAP = 040000 1199# 2239 
TBITVE= 000014 10814 1231 ‘ 
= 000032 11114 1951 1969 2250" 2263* 2264* 2764 2785 2864 2886 2976 3078 3108 
3298* 3336* 3337* 3487x 3525* 
TCRLF 002664 15824 
TE16 001136 (12934 = 2671* 2682* 2734 
6GT 001564 13554 
TE16TT 001424 13224 2670 
TIB 002524 5344 
TIMER 005020 2075 = 20778 2085 2088 2176 2191 2698 2766 2785 2812 2844 2866 2888 
2917 2952 29768 5009 3046 3080 3110 3134 3162 3194 3252 3316 3355 


TIMERR 005050 2079 20814 
TIMERO 005044 20874 
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CZTEEB.P11 17-NOV-78 10:11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0088 
TIMER1 004774 20724 2076 
TIMOK 005056 20994 770 44 3 2816 2848 2870 892 $36! 2956 2982 3013 3050 3084 
ee ee ae ee ee es 
3043 307 3105 3129 3157 189 3247 3313 3352 3384 3412 3501 3554 
TKB == 177562 10744 1869 1896 
TKISR 004126 1252 18964 
TKS = 177560 10734 1866 2700* 
TKVEC_ = 000060 10884 1251 
TMBASE 001010 12744 1999 2446 2453* 2454 2666 2693 
TMCMD = 006124 2298 2319 2329 2339 23714 3299 3338 3379 3407 3489 3527 3542 
TMCS1 = 172440 10964 1274 
TMK == 000004 11634 
TPB == 177566 10764 
TPS == 177564 10754 
TPVEC = 000064 10894 
T = 000034 10874 
TRE = 040000 11364 
TRTIVEC= 000014 10828 - 
TSTNUM = 001126 12854 1849 1854 1935 2005 2116 2692e 2756* 2777* 2797% 2823% 2856* 2878 
2900* 2929% 2965* 2990+  3021* 3067" 3092" 3121% 3145% 3174% 3216% 3294% 3332 
3369* 3401* 3483*  3521* 
TSTTBL 002444 15104 2724 2725 
TSTOOO 007756 1510 2007 2692H# = =2746 
TSTOO1 010252 1511 2747 7564 
TSTOO2 010336 1512 777k 
TSTOOS 010414 1513 797K 
STO004 010504 1514 282354 
TSTOOS 010612 1515 28564 
TSTOO6 010676 1516 28784 
TSTOO7? 010762 1517 29004 
TSTO1O 011062 1518 29298H 
TSTO11 011202 1519 29654 
TSTO12 0113500 1520 2990# 
TSTO13 011410 1521 30214 
TSTO14 011550 1522 30674 
TSTO1S 011642 1523 30924 
TSTO16 §=011750 1524 31214 
TSTO17? 012044 1525 31454 
TO20 012154 1526 31744 
TSTO21 012274 1527 32164 
TSTO22 012600 1528 32944 
TSTO23 012730 1529 33324 
TST024 013060 1530 33694 
TSTO25 013200 1531 34014 
TSTO026 013534 1532 478 34834 
TSTO27 013672 1533 35214 
TU77GT 002024 14114 
TU77TT 001 13784 2681 
TYPDEC 003242 17014 1749 1752 1756 1777 1780 1784 
= 12154 1540 1543 1582 1684 1719 1747 1750 1753 1754 1757 1775 1778 
1781 1782 1785 1788 1852 1874 1879 1889 1891 1914 1934 1941 1945 
1948 1958 1961 1966 1971 1975 2081 2274 2278 2279 2408 2439 2441 
2445 2448 2460 2472 2512 2514 2541 2597 2652 2717 2721 2723 28 
2733 2736 2738 2739 274) 3435 3453 3456 3459 
TYPE! 002656 15804 1597 1626 
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CZTEEB.P11 17-NOV-78 10:11 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0089 
TYPE2 002704 1581 15874 
TYPES 002712 1584 15904 
TYPES 002716 1588 15934 
TYPFLG 001135 12904 1654* 1662* 1682 1694* 1701* 1717 
YPOCT 0031 1542 16624 1787 1936 1965 1970 2447 2718 3458 
UBREAK= 177770 10724 | 
S = 040000 11904 1191 
UNTFND 001132 12894 26135* 2641* 3451 
= 020000 11574 
WAITRD 005602 22684 2284 2349 2355 2359 2712 2768 2787 2814 2846 2868 2890 2919 
2954 2969 2980 2994 3011 3025 3048 3071 3082 3096 3101 3112 3125 
31 3149 3153 3164 3178 3182 3186 3196 3224 3234 3244 3254 3322 
3359 337 3391 3405 3419 
WAITTI 005604 C2694 = 2272s 
WC = 000002 11004 2372s 
WCE = 040000 11584 
WCHKF = 000050 11244 
WCHKR = 000056 11254 
MK = 000026 11204 3411 . 
WD = 000060 11264 2323 3503 3342 
WRDCNT= 177600 12204 2321 233) 2341 
WRITE 005770 2282 2319% 2353 2710 2760 2778 2798 2824 2967 2992 3023 3069 3094 
3125 3147 3176 3180 3222 3374 3405 
WRL = 004000 11714 
WRT .BK 23534 2879 2901 2931 
WIBUF = 016650 2320 3300 3339 38494 
SCHARC 002626 15694 1613* -1617* 1623 
SCNTRL 002627 15704 1578* 1580 1608 1900* 
SCRLF 002630 15714 1582 
SENDAD 013462 1246 1904 34634 
SFILL 002617 15634 
= 1 15614 1593 
002616 15624 1598 
$SVPC = 12444 1249 
STKFLG 002621 15664 
002624 15684 1610* 
STPFLG 002620 15644 
$STPS 002622 15674 1606 
; = 017250 12304 12314 1232 1244 12454 1247 12494 12514 12564 1259 12614 12644  1267# 
12784 12804 12944 13004 135024 13034 13044 13054 13144 15724 1607 1834 20764 
20854 3848 3849 38504 
»HLT 004252 1240 19304 | 
- INPUT 004000 1544 18644 2449 2473 2542 2655 
RESTO 003104 1549 16414 1686 1721 1814 1856 1980 2125 2167 
-REWIN 005706 $€05 22974 2706 2758 2857 3058 3218 5296 3534 3371 3426 3485 3523 
-SAVE 003062 1539 16304 1664 1703 1797 1824 1930 2100 2138 
-SCOPE 004516 1238 19994 
2TYPE 002636 1234 15754 
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COTEEB. P11 17-NOV-78 10:11 CROSS REFERENCE TABLE -= MACRO SEQ 0090 
10334 1544 2449 2473 2542 2653 

RESTOR 10504 1685 1720 1813 1856 1979 124 2166 

REWIND 0 2280 2706 2758 2857 3057 218 3296 3334 3371 3425 3485 3523 3568 
10274 1663 1702 1796 1823 2099 2137 

SETGO 6# 2283 2303 2354 2711 2884 04 29 2968 2974 2993 2997 3024 3028 3070 
3076 3095 3099 3106 3124 3130 3148 3152 3158 3177 3181 3185 3190 3225 3253 
3242 3248 3304 3343 3375 3385 3404 3413 3494 3532 3547 

TIMCHK 2175 2190 2766 2785 = 812 2844 28 2888 2917 2952 2978 3009 3046 3080 
3110 3134 3162 3194 3252 3316 3355 3389 3417 3504 3557 

TIMEON 10408 2187 2761 2807 2839 2861 2883 2912 2948 2973 3005 3042 3075 3105 3129 
3157 3189 3247 3312 3351 3384 3412 3501 3554 


- ABS. 017250 000 


ERRORS DETECTED: 0O 


DSKZ:CZTEEB,DSKZ:CZTEEB. SEQ/CRF/SOL=CZTEAB. SML/ML ,CZTEEB.P11 
RUN-TIME: 5 9 .9 SECONDS 

RUN-TIME RATIO: 98/15=6.2 

CORE USED: 8k (15 PAGES) 


